#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname	=> 1 } );

$ua->add_handler("request_send",  sub { print "\n\n***** Request *****\n"; shift->dump; return });
$ua->add_handler("response_done", sub { print "\n\n***** Response *****\n"; shift->dump; return });

my $stop = 0;
my $versuch = 0;

my %felder = ( foo => 'bar' );
while(!$stop) {
	$versuch ++;
	print "////// VERSUCH $versuch \\\\\\\\\\\\\n";
	my $response = $ua->post('https: //ssl. ibanrechner .de/http.html',\%felder);	# BLANKS ENTFERNEN!!!
	$stop = 1 if $response->is_success;
}
print "\n\n-------------------------------------------------------------\n";
print "Version IO::Socket::SSL: ".(defined $IO::Socket::SSL::VERSION ? $IO::Socket::SSL::VERSION : '- nicht inst. -')."\n";
print "Version Crypt::SSLeay: ".(defined $Crypt::SSLeay::VERSION ? $Crypt::SSLeay::VERSION : '- nicht inst. -')."\n";
print "Version LWP::UserAgent: ".$LWP::UserAgent::VERSION."\n";
print "Version Mozilla::CA: ".(defined $Mozilla::CA::VERSION ? $Mozilla::CA::VERSION : '- nicht inst. -')."\n";