#!/usr/bin/perl

# checkportopening.pl

use strict;
use LWP::Simple;
use URI::Escape;