Рассмотрим:
#!/usr/local/bin/perl
$files = "C:\\Users\\A\\workspace\\CCoverage\\backup.txt";
unlink ($files);
open (OUTFILE, '>>$files');
print OUTFILE "Something\n";
close (OUTFILE);
Выше была простая подпрограмма, которую я написал в Perl, но она не работает. Как я могу заставить его работать?