#!/usr/bin/perl $msgfile = "/etc/webmsg"; $uptime = `uptime`; print "content-type: text/html\n\n"; print "
\n"; if(-f "$msgfile") { open (MSG, "$msgfile"); while ($msg =) { chomp($msg); $msgout = "$msg
\n"; push(@prtmsg, $msgout); } close(MSG); &printmsg(@prtmsg); } else { print "None.\n"; } sub printmsg { my(@prtmsg) = @_; foreach $lines (@prtmsg) { print $lines; } } print "
You are Visitor \n"; exit;