in reply to Setting HTTP:Headers using HTTP::Request::Common
When you use HTTP::Request::Common's POST routine, it creates an HTTP::Request object that has all it's attributes set to the most common values. For a large majority of tasks you will not need to set the values to anything different, and if you do, it is a great point at which to start from.
Now, HTTP::Message is the parent to HTTP::Request, and passes down it's headers method to it (along with all it's other methods) which will let you get at this request's HTTP::Headers object.
Here is your example, modified to show the use of this method:
#!/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;
In Section
Seekers of Perl Wisdom