#!/usr/bin/perl $msgfile = "/etc/webmsg"; $uptime = `uptime`; print "content-type: text/html\n\n"; print "Ying!
Ying's Personal Diary.... Check It Out!

 Be sure to check out the server status!

\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;