Select Code to Download

package Bob;

...
}

1;

#!/usr/local/bin/perl

...
use warnings;
use Bob;
Bob->doit();

Use of uninitialized value in concatenation (.) or string at (eval 1) 
+line 1.
thingy one is

thingy one is 1