use warnings ;
use strict;

use autouse 'foo';             # perldoc autouse
eval {foo::not_here();};     # perldoc -f eval

my $we_care=0;
warn $@ if ($@ && $we_care);