Socket / UNIX daytime(13)?

[Terry]

Hi,
ich habe da folgendes Script:
#!/usr/bin/perl

Client um daytime(13) abzufragen

use IO::Socket;
$remote = IO::Socket::INET->new(
Proto => "tcp",
PeerAddr =>"localhost",
PeerPort =>"daytime(13)",
)
or die "Daytime Antwortet nicht: $!";
while (<$remote>) {print}

Auf meiner Linux-Kiste läuft leider kein daytime, daher bekomme ich immer eine Fehlermeldung (connection refused) wie kann ich den daytime aktivieren? (SuSe6.2)

Wenn ich das Script auf NT starte kommt die Meldung: Bad file descriptor at time.pl line 6

Was mache falsch? Geht das auf NT überhaupt?