use IPC::System::Simple qw( systemx );
systemx( perl => ( '-e', 'print "foo"' ));  # Dies on error