# foo.pm
package foo;

sub 123 { print "this is an invalid sub name" }

qq(The End);

# script.pl
eval "require foo;";
die("ack - $@") if $@;

__output__

ack - syntax error at foo.pm line 5, near "qq(The End)"
Compilation failed in require at (eval 1) line 1.