use strict;
use warnings;
my $r=qx(set|perl -lwe "print <STDIN>; exit 1");
print "$?\n";