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

##</code><code>##

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

##</code><code>##

    my $clocktime = localtime;

    my $log = $file;
    $log =~ s#^.*/##;
    $log =~ s#\.[^.]$##;
    $log = "/perl/web/examscores/$courselocation/access/$log.log";

    open(my $access, '>>', $log)
       or die("Cannot open $log: $!\n");

    print $access (
       join(' ',
          $idinput,
          $lname,
          $fname,
          $clocktime,
          $useripaddress,
          $time,
       ), "\n");

    close($access);