use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

my $user = "user";
my $pass = "pass";

my $browser = LWP::UserAgent->new();

my $responde = HTTP::Request->new(POST => "http://www.sito.com/index.php");
$responde->content_type("application/x-www-form-urlencoded");
$responde->content("user=" . $user . "&pass=" . $pass);

$browser->request($responde)->as_string

#!/usr/bin/python

import urllib

def translate(lang='it_en', text='ciao'):
	
	'''Converte delle frasi da una lingua sorgente ad una lingua destinazione'''

	url = urllib.URLopener()
	
	query = urllib.urlencode({'doit':'done', 'intl':'1', 'lp':lang, 'tt':'urltext', 'urltext':text})
	
	responde = url.open('http://babelfish.altavista.com/tr', query).read()

	start = responde.find('<div style=padding:10px;>') + 25
	stop = responde.find('</div>', start)

	print responde[start:stop]