You could use nmap to scan those ports, it will tell you if they are open and it could guess what's listening on that port, which is much more informative than just knowing that the port is open and something's listening on it

Ciao!
--bronto

The very nature of Perl to be like natural language--inconsistant and full of dwim and special cases--makes it impossible to know it all without simply memorizing the documentation (which is not complete or totally correct anyway).
--John M. Dlugosz