$ perl -le '
    use Bad;
    {
        no warnings;   
        Bad::gen_warning();
    }                         
'
Use of uninitialized value $Bad::x in concatenation (.) or string at Bad.pm line 6.
Undeclared: >>><<<