#! /usr/bin/perl -w

#"real" data changed to protect the guilty
use strict;
use WWW::Curl::Easy;
use URI::Escape;

my $curl = new WWW::Curl::Easy;
my @strings = ("Encrypted String #1", "Encrypted String #2");

foreach my $encrypted (@strings) {
   my $query_string = "?action=decrypt&string=" . uri_escape($encrypted);
   $curl->setopt(CURLOPT_VERBOSE, 0);
   $curl->setopt(CURLOPT_HEADER, 0);
   $curl->setopt(CURLOPT_URL, 'https://www.somedomain.com/somescript.php' . $query_string);

# Starts the actual request
   $curl->perform;
   print "\n=-----------------------------------------=\n";
}

##</code><code>##

HTTP/1.1 200 OK
Date: Thu, 29 May 2008 17:25:29 GMT
Server: Apache/1.3.34 Ben-SSL/1.57 (Unix) PHP/4.4.2 
X-Powered-By: PHP/4.4.2
Set-Cookie: PHPSESSID=716b50edcfb0291d088317c537f629ee; path=/
Expires: Thu, 19 Nov 1981 08:52:00 GMT 
Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0 
Pragma: no-cache
Transfer-Encoding: chunked 
Content-Type: text/html

string #1
=---------------------------------------------=
HTTP/1.1 200 OK
Date: Thu, 29 May 2008 17:25:29 GMT
Server: Apache/1.3.34 Ben-SSL/1.57 (Unix) PHP/4.4.2
X-Powered-By: PHP/4.4.2
Set-Cookie: PHPSESSID=5a6b5de6dc36e01617a05b7bdbf8f384; path=/
Expires: Thu, 19 Nov 1981 08:52:00 GMT
Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Pragma: no-cache
Transfer-Encoding: chunked
Content-Type: text/html

string #2
=---------------------------------------------=