Select Code to Download

Use of uninitialized value at ./foo.pl line 7, <BAR> chunk 198.

#!/usr/bin/perl -w

...

# Force a warning
$foo = 1;