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);

##</code><code>##

$VAR1 = bless( {
                 '_method' => 'POST',
                 '_headers' => bless( {
                                        'content-type' => 'application/x-www-form-urlencoded',
                                        'content-length' => 109
                                      }, 'HTTP::Headers' ),
                 '_uri' => bless( [
                                    bless( do{\(my $o = 'http://gino/ciccio.cgi'
)}, 'URI::http' ),
                                    undef
                                  ], 'URI::URL' ),
                 '_content' => 'sessionid=something&mittente=something&prefix=number&numtel=number&messagetext=message&flash=0&Submit=+Invia+'
               }, 'HTTP::Request' );