>type Foo.pm
package Foo;

sub foobar {
   print undef;
}

1;

>type foo.pl
use Foo;
Foo::foobar();

>perl -w foo.pl
Use of uninitialized value in print at Foo.pm line 4.