#!/usr/bin/perl -w
use strict;
use warnings;
use IO::Socket::SSL;

my %config = (
	bankadressen	=> {
		1	=> {
			name		=> 'Postbank',
			addr		=> 'https://hbci.postbank.de/banking/hbci.do',
			port		=> 443,
			proto		=> 'tcp',
		},
		2	=> {
			name		=> 'Sparkasse',
			addr		=> 'hbci-pintan-rl.s-hbci.de/PinTanServlet',
			port		=> 443,
			proto		=> 'tcp',
		},
	},
	bank_verwenden	=> 1,
	debug			=> 1,
);

testconnect (\%config);

###############################################################################

sub testconnect {
	print "Verbindungsaufbau zu '$config{bankadressen}{$config{bank_verwenden}}{name}'\n" if $config{debug};
	my $client = IO::Socket::SSL -> new (
		PeerAddr => $config{bankadressen}{$config{bank_verwenden}}{addr},
		PeerPort => $config{bankadressen}{$config{bank_verwenden}}{port},
		Proto => $config{bankadressen}{$config{bank_verwenden}}{proto},
	) || warn "Problem: " . IO::Socket::SSL::errstr();


	print $client "GET / HTTP/1.0\r\n\r\n";
	print <$client>;
}