#!/usr/bin/perl 
print "Content-type: text/html\n\n"; 
# alt-96 for `
print '<pre>';
$u = "thaiall";
$cmd =`finger $u`; &printline;
exec `finger $u > temp`;  # if your directory allow for nobody
$cmd =`ls -al temp`; &printline;
exec `rm temp`;   # exec will return nothing
$cmd =`id`; &printline;
$cmd =`cat /etc/passwd`; &printline;  
sub printline {
  @rec = split( "\n", $cmd); 
  foreach $r ( @rec) { print "$r<br>"; } 
  print "<hr>";
}