#!/usr/bin/perl

#The usual modules
use strict;
use IO::Socket::INET;

#Make a constant connection (may have to use the "constant" module)
use constant GOING => '66.78.26.27';
use constant PORT => '2000';

#Create a new object and set up the protocol to Transmittion Control Protocol and the Local Port to PORT.
my $Socky = IO::Socket::INET->new(Proto => 'tcp',
												   PeerPort => PORT,
												   PeerAddr => GOING);

while (1) { #This always returns true, thus giving a continual loop.
	Send_It(<$Socky>);
   	}

sub Send_It {
	my @All_of_me = @_;
	$Socky->send(@All_of_me);
	}

exit;