package LogScripts;
# If you want high-res timekeeping:
# use Time::HiRes qw{ time };

my $started;

BEGIN {
   open(F, ">>/logdir/scripts.log");
   print F localtime(time) . " $ENV{REMOTE_ADDR} - Starting $0\n";
   $started = time();
}

END {
   my $elapsed = time() - $started;
   print F localtime(time) . " $ENV{REMOTE_ADDR} - Stopping $0 ($elapsed seconds)\n";
   close(F);
}