#!/usr/bin/perl -w

use strict;
use HTTP::Request::Common qw(POST);

#build a pre-fab HTTP::Request object
my $request = POST 'http://gino/ciccio.cgi', [
  sessionid   => 'something',
  mittente    => 'something',
  prefix      => 'number',
  numtel      => 'number',
  messagetext => 'message',
  flash       => 0,
  Submit      => ' Invia ',
];

#get this request's HTTP::Headers object
my $headers = $request->headers;

#you can call any method specified in HTTP::Headers' perldoc

print $headers->as_string;