#!/usr/bin/perl -w use strict; my $input='unixhelp pts/5 10.3.4.54 Fri Jun 13 11:08 still logged in unixhelp pts/5 10.3.4.00 Fri Jun 13 11:05 - 11:05 (00:00) unixhelp pts/5 10.3.4.00 Fri Jun 13 11:04 - 11:05 (00:00) unixhelp pts/5 10.3.4.00 Fri Jun 13 11:00 - 11:01 (00:00) unixhelp pts/5 10.3.4.00 Fri Jun 13 10:49 - 10:52 (00:03) unixhelp pts/8 10.3.4.00 Fri Jun 13 10:46 - 10:46 (00:00) unixhelp pts/3 10.3.4.00 Fri Jun 13 10:12 - 10:12 (00:00) unixhelp pts/3 10.3.4.00 Fri Jun 13 10:10 - 10:10 (00:00) unixhelp pts/3 10.3.4.00 Fri Jun 13 10:09 - 10:09 (00:00) unixhelp pts/3 10.3.4.00 Fri Jun 13 10:07 - 10:08 (00:00)'; @inputlines = split('\n', $input); print "Content-type: text/html\n\n"; print "\n"; print " \n"; print " \n"; foreach (@inputlines) { print ""; } print " \n"; print "

$_ \n

\n"; print "\n";