#!/usr/bin/perl -l

use strict;
use warnings;
use Encode;
use Encode::Locale;

require LWP::UserAgent;
require HTTP::Request;

my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 } );
$ua->agent("Mozilla/8.0");
$ua->timeout(10);
$ua->protocols_allowed( ['https'] );

my $req = HTTP::Request->new( 'POST',
    'https://sis-i.redsys.es:25443/sis/entradaXMLEntidad/' );
$req->header( 'Accept' => 'text/html' );

my $res = $ua->request($req);

if ( $res->is_success ) {
    print $res->decoded_content;
}
else {
    print "Error: " . $res->status_line . "\n";
}