my $now=strftime "%m/%d/%Y %H:%M:%S", localtime; print <<"END";

­MSHIP - my statu­s of host IPs

$now

END