$ perl -E'
   open(my $pipe, "-|", "perl -e'\''sleep 5; exit 3'\''");
   say time;
   close($pipe);
   say time;
   say $?>>8;
'
1280645564
1280645569
3