Who Output

#!/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 <


EndHTML2