my $result = qx/ perl -cw -e '$code' 2>&1/;