[Stasik]

ебался я, ебался...... короче вот так может, он проверяет 200.....

#!/usr/bin/perl
print "Content-type: text/html\n\n";
use Net::FTP;
$ftp = Net::FTP->new("127.0.0.1", Timeout => 1);
if ($ftp == NULL)
{
   print "Offline";
} else {
   print "Online";
}