Select Code to Download

use vars qw($sku, $description, $price, $qty);

...
    local($sku, $description, $price, $qty) = @$item;
    write(PURCHASEORDER);
}

use strict;

...
__output__

a string