#!/usr/bin/perl -w
use strict;

my @res;
my ($users,$time,$up,$uptime,$res);

@res = `/usr/bin/ftpcount --path=/var/run`;
$time = time();

foreach $res (@res) {
        if ($res =~ /(\d+)\susers/) { $users = $1 } else { next }
}

$uptime = `uptime`;

$uptime =~ /up (.*?),/;
$up = $1;

print "Content-type: text/html\r\n\r\n";
print "$users\n";
print "$users\n";
print "$up\n";
print "ftp.xxxxxx.com\n";