#!/usr/bin/perl
use warnings;
use strict;
use Net::Ping;
my $test=Net::Ping->new("syn");
$test->port_number(80);
$test->ping(111.111.111.111);