Select Code to Download

#!perl
use strict;
...
open OUT,'>','soap.xml' or die "$!";
print OUT $response;
close OUT;

my $sql = "SELECT pkid, name, description 
           FROM device 
...
   SOAP::Data->name('sql' => $sql)
);
print $response;