дык, на перле конечно можно написать всё гемор только, пхп прикладнее 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";
}
я не пробовал, но по идее должно работать