use warnings FATAL => qw(uninitialized);
print "Hi there, Mr. $name\n";
__END__
Use of uninitialized value in concatenation (.) or string at warnfatal.pl line 5.