I think what you want is to eval the entire file right? I'm supposing that you're trying to catch bad script automagically from another script. This is what I've tested:

Consider you have a file called testee.pl with the following code:

#!/usr/bin/perl

sub Foo {
  print "foo\n";
}

Bar();

1;
[download]

And that you have your tester file called tester.pl:

#!/usr/bin/perl
use strict;

eval {
  require 'testee.pl';
};

if ($@) {
  warn();
}

print "\nDone!\n";
[download]

And your result when running tester.pl is:

20:54:50.70@admin:> perl tester.pl
Undefined subroutine &main::Bar called at testee.pl line 7.
        ...caught at tester.pl line 9.

Done!

20:54:56.11@admin:>
[download]

The only problem I see with this method is that you're testee.pl must return a true statement (hence the 1; at the end). But other than that it seems to do what you want!

UPDATED:

The above doesn't work. Adam has pointed out that the code cannot be executed. It this case, the eval would make everything a big mess...

#!/home/bbq/bin/perl
# Trust no1!