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

##</code><code>##

#!/usr/bin/perl -w

use diagnostics;

# Force a warning
$foo = 1;