#/usr/bin/perl -w use strict; my $pid = fork(); die "fork() failed: $!" unless defined $pid; if ($pid) { print "I am the child pid =$pid...\n"; while ( sleep 1 ) { print "I am still the child ". localtime()."\n"; } } else { print "I am the parent\n"; while (sleep(2)) { print "I am still the parent ". localtime(), "\n"; } } __END__ C:\test>junk57 I am the child pid =-3552... I am the parent I am still the child Sun Aug 26 07:46:33 2012 I am still the parent Sun Aug 26 07:46:34 2012 I am still the child Sun Aug 26 07:46:34 2012 I am still the child Sun Aug 26 07:46:35 2012 I am still the parent Sun Aug 26 07:46:36 2012 I am still the child Sun Aug 26 07:46:36 2012 I am still the child Sun Aug 26 07:46:37 2012 I am still the parent Sun Aug 26 07:46:38 2012 I am still the child Sun Aug 26 07:46:38 2012 Terminating on signal SIGINT(2)