$ perl
$str = <<FOO;
# line 1 "foo"
sub bar {
    die('gotcha');
}
&bar();
FOO

print "When executed by eval:\n";
eval($str);
print $@;

print "When executed by perl:\n";
open (PERL, "| perl") or die "Cannot start perl: $!";
print PERL $str;
close PERL;
__END__
When executed by eval:
gotcha at (eval 1) line 3.
When executed by perl:
gotcha at foo line 2.