alarm() {

perl -e ‘

eval {

$SIG{ALRM} = sub { die };

alarm shift;

system(@ARGV);

};

if ($@) { exit 1 }

‘ “$@”;

}

if [[ -z $1 || -z $2 ]]; then

echo “Usage: $0 <host> <port, ports, or port-range>”

return

fi

host=$1

ports=()

case $2 in

*-*)

IFS=- read start end <<< “$2″

for ((port=start; port <= end; port++)); do

ports+=($port)

done

;;

*,*)

IFS=, read -ra ports <<< “$2″

;;

*)

ports+=($2)

;;

esac

echo $host;

for port in “${ports[@]}”; do

alarm 1 “echo >/dev/tcp/$host/$port &&

echo \”port $port is open\”" ||

echo “port $port is closed”

done