my $start = localtime;
mfork(4,4, sub { my $x = 1e9; $x-- until $x == 1; print "$$\n"; });
my $end = localtime;
my $t1 = $end - $start;
print "Seconds: ",$t1->seconds,"\n";