Das Script kannst Du z. B. mit IO::Socket schreiben. Hierzu erfaehrst Du bei Google mehr, beispielsweise: http://www.perlfect.com/articles/sockets.shtml

Wenn Du noch mehr Fragen hast, zoegere bitte nicht, uns dein Betriebssystem zu nennen.