$ perl -wE 'system("perl", "-wE", "say q[a b]")' a b