$code .= ";\n1;";
# ... ?
my $perl = qx/ which perl /;
my $result = qx/ perl -c $code /; # CAN this work? If so, how? I'm a shell-tard.