12:59 >perl 1034_SoPW.pl
bless({}, "EOYStats::Purchase")
EOYStats::Purchase::get_stats(abc)
EOYStats::do_something(abc)

13:09 >