#!/usr/bin/perl print "Content-type:text/html\n\n"; @who = `who -w`; print <Who Output who Output EndHTML foreach $i (@who) { print $i; } print <
EndHTML foreach $i (@who) { print $i; } print <