Bastava settare la variabile di ambiente $ENV{HTTP_proxy}
Allego un esempio di richiamo della web application di google
codice:
#!/usr/bin/perl -w
use SOAP::Lite;
$googleSearch = SOAP::Lite->service('file:GoogleSearch.wsdl');
$key = '<---- key fornita da google ----->';
$query = 'noarts';
$ENV{HTTP_proxy} = 'http://proxy:8080'; 
$risultato = $googleSearch->doGoogleSearch($key, $query, 0, 10, 'false', '', 'false', '', 'latin1', 'latin1');
for (@{$risultato->{"resultElements"}}) {
	print $_->{"URL"}."\n";
}
Il campo $key va valorizzato con un codice che si ottiene registandosi su google. Nel caso specifico l'output dello scrip è il seguente:
codice:
http://www.noarts.net/
http://katalogen.sunet.se/reginfo.html?id=123672
http://katalogen.sunet.se/reginfo.ht...2&lang=english
http://lists.slimdevices.com/archive...ne/002503.html
http://lists.slimdevices.com/archive...ne/002500.html
http://lists.slimdevices.com/archive...ry/001245.html
http://lists.slimdevices.com/archive...er/000857.html
http://lists.slimdevices.com/archive...ry/025061.html
http://article.gmane.org/gmane.music...vices.cvs/1758
http://article.gmane.org/gmane.music...vices.cvs/1755
Restituisce i primi dieci link trovati con google che contengono la stringa 'noarts'


ops! Dimenticavo 'http://proxy:8080' è il nome del proxy-serverorta verso internet della ditta in cui lavoro, per utilizzare lo script questo va personalizzato con il valore opportuno. Il file 'GoogleSearch.wsdl' è il descrittore del web services, si scarica da google e va salvato in locale.