#!/usr/bin/perl 
print "Content-type: text/html\n\n"; 
# alt-96 for `
print '<pre>';
$cmd =`whereis perl`; &printwhereis; 
$cmd =`whereis sendmail`; &printwhereis; 
$cmd =`whereis qmail`; &printwhereis; 
$cmd =`whereis fly`; &printwhereis; 
sub printwhereis {
  @rec = split( " ", $cmd); 
  foreach $r ( @rec) { print "$r "; } 
  print "\n";
}