>perl -w tmp.pl
Use of uninitialized value in print at tmp.pl line 25.
me