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


# declare variables
$type    = 'text/html';              # HTML document type
$expires = 'now';                    # browser page expiration
$css   = './ybiC.css';               # Cascading Style Sheet
$title = 'CGI, CSS and Tables';      # HTML page title
$tm    = localtime;                  # current host time
$file  = '/var/www/htdocs/ybiC.cgi'; # this file
$mod   = ctime(stat($file)-> mtime); # most recent modified time