Select Code to Download

    my $callobj = {
...
       print "Error\n";
    }

my $res = $client->call( $uri, $callobj, );