$ perl 1137798.pl
bar
Use of uninitialized value in print at 1137798.pl line 8.