#!/usr/bin/perl
use IO::Socket;

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

$socket = IO::Socket::INET->new(PeerAddr => $host,
                                PeerPort => $port,
                                Proto    => "tcp",
                                Type     => SOCK_STREAM,
                                Timeout  => 5,
                                Reuse    => 1)
    or die "Couldn't connect to $remote_host:$remote_port : $@.\n";


 print $socket "GET / HTTP/1.0\n\n";
 print while(<$socket>);
 close $socket;     

##</code><code>##

#!/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;