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