Select Code to Download

use vars qw($type $expires $css $title $tm $file $mod);


...
my $tm    = localtime;                  # current host time
my $file  = '/var/www/htdocs/ybiC.cgi'; # this file
my $mod   = ctime(stat($file)-> mtime); # most recent modified time

use vars qw($type $expires $css $title $tm $file $mod);


...
$tm    = localtime;                  # current host time
$file  = '/var/www/htdocs/ybiC.cgi'; # this file
$mod   = ctime(stat($file)-> mtime); # most recent modified time