use IO::Socket::SSL;

my $client = IO::Socket::SSL->new( '87.230.94.39:8080' ) or die "Fehler bei der SSL - Verbindung !";

while( <$client> )
{
	print $_;
}