Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    foreach my $keyval(keys %tags) { print OUTPUT $keyval, "\n"; }
    close OUTPUT;
}

<product_data>
  <product_id>100000</product_id>
...
    <value>FLV 1166V</value>
  </spec>
</product_data>