use HTTP::Request::Common qw(POST);
use Data::Dumper;

$req = POST 'http://gino/ciccio.cgi',
                [ 
		sessionid => 'something', mittente => 'something',
					prefix => 'number', numtel => 'number',
					messagetext => 'message', flash => "0",
					Submit => " Invia "
				];

print Dumper($req);