use strict;
use warnings;

use LWP::UserAgent qw( );
use URI::Escape    qw( uri_escape );

my $ua = LWP::UserAgent->new();
my $response = $ua->get(sprintf(
   'http://test.test.com/ws/ws.asmx/DecryptText?text=%s&key=%s',
   uri_escape($text),
   uri_escape($key),
));

if (!$response->is_success()) {
   die($response->status_line(), "\n");
}

binmode STDOUT;
print $response->content();