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