#!/usr/bin/perl
use IO::Socket;
use Net::SSLeay::Handle;

$host = "www.citizensbankonline.com";
$port = 443;

tie(*SSL, "Net::SSLeay::Handle", $host, $port);

print SSL "GET / HTTP/1.0\n\n";
shutdown(\*SSL,1);
print while(<SSL>);
close SSL;