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


# declare variables
my $type    = 'text/html';              # HTML document type
my $expires = 'now';                    # browser page expiration
my $css   = './ybiC.css';               # Cascading Style Sheet
my $title = 'CGI, CSS and Tables';      # HTML page title
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

##</code><code>##

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