#! /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";
}