open my $perl, '<', 'perlscript.pl'; 
my $code = do { local $/; <$perl> };
close ($perl); 

eval {$perl}; # what am I eval'ing?