Select Code to Download

#!perl
use strict;
...
print {$log} "Files: $file_count\n";
close $log;

1 at script.pl line 10.
Can't create logfile; Access is denied.