Select Code to Download

Select or download this

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

print Dumper($req);

Select or download this

$VAR1 = bless( {
                 '_method' => 'POST',
...
                                  ], 'URI::URL' ),
                 '_content' => 'sessionid=something&mittente=something
+&prefix=number&numtel=number&messagetext=message&flash=0&Submit=+Invi
+a+'
               }, 'HTTP::Request' );