Select Code to Download

package Item;
$VERSION = 1.0;
...
}

1;

#!/usr/bin/perl 

...
        print "Sku: ", $x->sku, " Qty: ", $x->qty, "\n";
}
exit;