$ perl -E'
    $pid = open(my $pipe, "-|", "perl -e'\''sleep 5; exit 3'\''");
    say time;
    waitpid($pid, 0);
    say time;
    say $?>>8;
'
1280685258
1280685263
3