#!/usr/bin/perl

sub Foo {
  print "foo\n";
}

Bar();

1;

##</code><code>##

#!/usr/bin/perl
use strict;

eval {
  require 'testee.pl';
};

if ($@) {
  warn();
}

print "\nDone!\n";

##</code><code>##

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:>