Select Code to Download

#!/usr/bin/perl -w

...
print "Hello\n";

if (undef eq '') { print "yes\n" } else { print "no\n"; }

./test14.pl
Foo
...
Hello
Use of uninitialized value in string eq at ./test14.pl line 31.
yes