Select Code to Download

# call NDFgenByDay to retrieve the xml forecast data
        print "\n\nCalling NDFgenByDay to retrieve XML forecast data f
+or ", $location[$i], " ... ";
...
                =>SOAP::Data->type(string=>$format)->name('format')
        );
        print "done.\n";

my $xml = $filePath . 'Forecast_' . $location[$i] . '.xml';
open(OUT, '>' . $xml);
print OUT $response->result;
close(OUT);

$weatherIconURL = $data->{'data'}->{'parameters'}->{'conditions-icon'}
+->{'icon-link'}->[0];