Format STDOUT redefined at C:\Documents and Settings\\My Documents\perltest
\Perl-1.pl line 38.
Packaged Goods Organizer
========================
Barcode  :  1231231231
Price    :  22
Quantity :  1
Barcode  :  0


                Goods in Stock
                ==============
Barcode    Price   Quantity   Value
-----------------------------------
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<$-
Total value good in stock>>>>>>>$0
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<$-
Total value good in stock>>>>>>>$2