#!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