Suppressing Warnings (2)

• A "Perl 7-ish" program that assumes strict and warnings on by default

        $ cat foo7.pl 
        my ($i, $j, $k);
        $i = 'foo';
        $k = $i . $j;
        print "$k\n";

        $ p7 foo7.pl
        Use of uninitialized value $j in concatenation (.) or string at foo7.pl line 3.
        foo