print "Content-type:text/html "; print " "; print "SSH LOGS "; print " "; #SUCCESSFUL TABLES print "

Succesful SSH logins

"; print " "; foreach $line (@ary) { if ($line =~ m/$SUCCESS/) { print "

$line

"; } } print "

"; #FAILED TABLES print "

Failed SSH logins

"; print " "; foreach $line (@ary) { if ($line =~ m/$FAILED/) { print "

$line

"; } } print "

"; #HTML FOOTER print " "; print " ";