cmpthese(
    -3,
    {
        do    => sub { unless (fork) { do 'script.pl'; exit } wait },
        sys   => sub { system 'perl script.pl' },
    }
);