use strict; use warnings; my @data = ; my $pid= fork(); die unless defined $pid; if ($pid == 0) { print "Start c\n"; for (@data) { print "c: $_"; sleep 1; } print "stop c\n"; } else { print "Start p\n"; for (@data) { print "p: $_"; sleep 1; } print "stop p\n"; } __DATA__ a b c d e