$title

sub head() { ($title, $keywords, $description, %links) = @_; my $path = "/.."; print "\n"; print "\n"; print "$title\n"; print ""; print "\n"; print "\n"; print "\n"; print "\n"; print ""; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print " \n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print " \n"; print "

$\"\"$

"; print "

$title

\n"; print "

$\"\"$

\n"; print " "; ####################################################### # TOP BAR LINKS $urls = ""; $count = keys(%links); if ($count != 0) { foreach $key (keys %links) { $urls .= "$links{$key} | "; } } else { # default URL to Rutgers Main $urls .= "Rutgers Main | "; } $urls = substr($urls, 0, -3); # trim last " | " print "$urls\n"; ####################################################### print "

$\"\"$

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print " \n"; print "

$\"\"$	\n"; print " \n"; } sub foot() { ($contact) = @_; ($package, $filename, $line) = caller; my $mod = localtime((stat($filename))[9]); my $path = "/.."; print "
BACK TO TOP

\n"; print " \n"; print " $\"Return$ \n"; print " For more information contact $contact Last updated: $mod

\n"; print "

\n"; print "\n"; print "\n"; } 1