#!perl
use strict;
use warnings;
use feature 'say';
use Config;
BEGIN {
$| = 1; # autoflush
say "perl $^V, uname = ", $Config{myuname};
}
END { say scalar localtime, "\tprocess $$ is exiting"; }
my $pid = fork();
if($pid==0) {
say scalar localtime, "\tI am the child $$";
exit;
}
say scalar localtime, "\tI am the parent $$";
__END__
perl v5.30.0, uname = Win32 strawberry-perl 5.30.0.1 #1 Thu May 23 12:
+20:46 2019 x64
Fri Jul 31 06:32:31 2020 I am the parent 10128
Fri Jul 31 06:32:31 2020 process 10128 is exiting
Fri Jul 31 06:32:31 2020 I am the child -5108
Fri Jul 31 06:32:31 2020 process -5108 is exiting
What happens if you run the same code? |