[Stasik]

дык, на перле конечно можно написать всё гемор только, пхп прикладнее IMHO он же специально для веб разрабатывался :atention:

так

#!/usr/bin/perl
print "Content-type: text/html\n\n";
use IO::Socket;
$fp = IO::Socket::INET->new(
        Proto=>"tcp",
        PeerAddr=>"127.0.0.1",
        PeerPort=>"21",
        Reuse=>5,
        Type => SOCK_STREAM);
if (!$fp) {
    print "Offline";
} else {
    print "Online";
}

я не пробовал, но по идее должно работать