Select Code to Download

package Bad;

...
}

1;

$ perl -le '
    use Bad;
...
'
Use of uninitialized value $Bad::x in concatenation (.) or string at B
+ad.pm line 6.
Undeclared: >>><<<

$ perl -le '
    use Bad;
...
'
Use of uninitialized value $Bad::x in concatenation (.) or string at B
+ad.pm line 6.
Undeclared: >>><<<

$ perl -le '
    use Bad;
...
    Bad::gen_warning();
'
Undeclared: >>><<<