perl -wE 'say 1; system $^X, "-wE", q(sleep 1, say "\t$_" for 1 .. 10); say 2;'