$ perl -le '
    use Bad;

    Bad::gen_warning();
'
Use of uninitialized value $Bad::x in concatenation (.) or string at Bad.pm line 6.
Undeclared: >>><<<