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


my $host='127.0.0.1';
my $port='80';

if(IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port ))
{
  print "Verbindung hergestellt\n";
}
else
{
  print "Verbindung kam nicht zustande\n";
}