#/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:\TEMP>perl browser.pl
I am the parent
I am the child pid =-4808...
I am still the child  Sun Aug 26 01:10:36 2012
I am still the parent Sun Aug 26 01:10:37 2012
I am still the child  Sun Aug 26 01:10:37 2012
I am still the child  Sun Aug 26 01:10:38 2012
I am still the parent Sun Aug 26 01:10:39 2012
I am still the child  Sun Aug 26 01:10:39 2012
I am still the child  Sun Aug 26 01:10:40 2012
I am still the parent Sun Aug 26 01:10:41 2012
I am still the child  Sun Aug 26 01:10:41 2012
I am still the child  Sun Aug 26 01:10:42 2012
Terminating on signal SIGINT(2)