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

##</code><code>##

my $result = qx/perl -c -e '$code' 2>&1/; # bundle STDOUT and STDERR

##</code><code>##

-e syntax OK

##</code><code>##

my $result = qx/perl -c $tempfile 2>&1/;

##</code><code>##

package My::Eval::Evil;
eval $code;
if ($@) {
    ....
}
package main; # or whatever package you've been in

##</code><code>##

perl -e 'sub foo {print "foo\n" } package Foo; my $code = "*main::foo = sub {print \"bar\\n\" }"; eval $code; package main; foo()'
bar