or download this
[alex@won egSPOPS]$ perl -w stock_doodads.pl
Added 'set_creator' to My::Doodad
Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.
+8.0/SPOPS/Secure/DBI.pm line 68.
Can't call method "id" on an undefined value at My/Doodad.pm line 71.