Create portcheck.tcl

This script checks the status of a port on a host.