Select Code to Download

#!/usr/bin/perl

...
);
die $som->fault->{ faultstring } if ($som->fault);
print $som->result, "\n";

use Data::Dumper;
print Dumper $som->result;