>type script.pl
use warnings;
use Bla;
Bla->test();

>type bla.pm
package Bla;
sub test { print(undef); }
1;

>perl script.pl

>perl -w script.pl
Use of uninitialized value in print at Bla.pm line 5.