Einen Server per Telnet abfragen

[olikre]

Hallihallo,

ich will per AppleScript einen Server per Telnet abfragen, und dessen Ausgaben per AppleScript weiterverarbeiten.
Als Perlscript habe ich das schon da und dort läuft das folgendermaßen:

#/usr/bin/perl -w
use IO::Socket;
use strict;
my $sock = new IO::Socket::INET (
        PeerAddr => '192.168.144.1',# IP des Servers
        PeerPort => '8605',# Port des Servers
        Proto => 'tcp' # Protokoll des Servers
        );
        die "Could not create socket: $!\n" unless $sock;
while(<$sock>) # Endlosschleife solange das Socket besteht
{
        if ($_ =~ /WERTA/){ # wenn Ausgabe WERTA enthält
                ... #Auswerten der Zeile
        } elseif ($_ =~ /WERTB/){ # wenn Ausgabe WERTB enthält
                ... #Auswerten der Zeile
        }
}

Kann man sowas auch in AppleScript machen? und wenn Ja wie ?