Select Code to Download

#!/usr/bin/perl -w
use strict;
my @skuid=("11021","11022","11023");
...
  print "PRICE:$price\n";
}
print "</body></html>";

#!/usr/bin/perl -w
use strict;
use CGI ":standard";
...
               ])
           ]),
      end_html;