Select Code to Download

print "<tt>­\n";
print "\n<c­enter­><h3>­MSHIP - my statu­s of host IP's<­/h3><­/cent­e
+r>\n­";
my $now=­strft­ime "%m/%­d/%Y %H:%M­:%S", (loca­ltime­);
print "<cen­ter>$­now</­cente­r>\n"­;
print hr;

my $now=strftime "%m/%d/%Y %H:%M:%S", localtime;
print <<"END";
<tt><center><h3>­MSHIP - my statu­s of host IPs</h3></center>
<center>$now</center>
<hr />
END