Help for this page

Select Code to Download

Select or download this

 
use warnings FATAL => 'all';
use strict;
...
    print "total ${name}'s on hand: $grand_total \n\n";

    }

Select or download this

Name wiggle;  Internal SKU: 179;  Source(s):
    mfg AMD;  mfg's SKU: CDS00013;  count: 100
...
    mfg AMD;  mfg's SKU: CDS00014;  count: 102
    mfg Intel;  mfg's SKU: BAR00042;  count: 99
total woggle's on hand: 201