Select Code to Download

use warnings;
use strict;
...
      <pic>8</pic>
      <id>7</id>
</results>

        $values .= "      <address>$args->{address}</address>\n" if ex
+ists $args->{address};