Écrire dans un fichier en Perl

Considérer:

#!/usr/local/bin/perl
$files = "C:\\Users\\A\\workspace\\CCoverage\\backup.txt";
unlink ($files);
open (OUTFILE, '>>$files');
print OUTFILE "Something\n";
close (OUTFILE);

Ci-dessus est un simple sous-routine que j'ai écrit en Perl, mais il ne semble pas fonctionner. Comment puis-je le faire fonctionner?

source d'informationauteur Daanish