#!/usr/bin/perl

use IO::Socket;
print "IP: ";
chomp ($ip = <STDIN>);
$i=1;
while($i <=5) {
$sock = IO::Socket::INET->new(proto=>'tcp', PeerAddr=>"$ip", PeerPort=>'80')
or die"Couldn't connect!\n\n";
print "Connected!\n";
$i++;
}