#!/usr/bin/perl -w

$|++; 

use CGI qw(:standard); 
print header(); 

print h1('howdy!'), 
hr(); 

FORK: {

if($pid = fork){ 

}elsif (defined($pid)){ 

print p('i am a child!')
} 


}

print h2("that's all folks");