Select Code to Download

#!/bin/perl
use strict;
use warnings;
...
   open(SUMMARY, ">United perl parser summary.txt");
   my @k = keys %Items;
 foreach my $k (@k) {print SUMMARY ("$k => $Items{$k}\n");};

<Catalog>
  <item>
...
    <quantities>
      <prices>
    <sellingpoints>