Format STDOUT redefined at C:\Documents and Settings\\My Documents\perltest
\Perl-1.pl line 28.
Packaged Goods Organizer
========================
Barcode  :  1231231231
Price    :  21
Quantity :  2
Barcode  :  1231231232
Price    :  44
Quantity :  2
Barcode  :  0


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