Wie connected man Ports mit Perl?

[Stefan Sieder]

Also, ich würde gerne ein Script schreiben das sagen wir mal Telnet, FTP, HTTP und SMTP Ports abfragt und zurückgibt ob der Server sie offen hat.
Meine Frage nun, ob mir jemand mal zumindest ein kleines Beispiel zeigen könnte wie das Funktioniert.

So in der Art:
Script connected FTP
...Offen
Script connected HTTP
...Offen
Script connected Telnet
...Zu

mfg
Stefan
etc.