print "PID before fork: $$\n";

fork && exit;

print "PID after fork: $$\n";