#!/usr/bin/perl
use warnings;
use strict;

use Socket qw(:DEFAULT IPPROTO_TCP TCP_NODELAY);

while ( 1 ){

  socket(Client, PF_INET, SOCK_STREAM, getprotobyname("tcp")) or die "ERROR: socket() failed $!\n";
  my $remoteAddr = sockaddr_in(1220, inet_aton("localhost")) or die "ERROR: sockaddr_in() failed $!\n";

  connect(Client, $remoteAddr) or print "connect() status: $!\n";

  close(Client) or print "DEBUG: close() status: $!\n";

}