Select Code to Download

my $log = $file;
$log =~ s#^.*/##;
$log =~ s#\.[^.]$##;
$log .= '.log';

$log = "/perl/web/examscores/$courselocation/access/$log";

    my $clocktime = localtime;

...
       ), "\n");

    close($access);