#!/usr/bin/perl -w

use strict;
use IO::Socket;


die "Usage: <IP address> <Port>\n" unless (scalar @ARGV==2);

my $Status="Failed";
my ($Host,$Port)=@ARGV;

my $Socket=IO::Socket::INET->new("$Host:$Port");

$Status="Okay" if $Socket;

die "Everything $Status\n";