in reply to Unexpected parser error
$ perl sub function { return "warn 'broken'" } my $a = eval(function) / 4; ^D broken at (eval 1) line 1. [download]
-- Randal L. Schwartz, Perl hacker