#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);

$count=0;

@files = glob('Online/*.user');
$count = scalar @files;

print "Content-Type: application/x-javascript\n";
print "Pragma: no-cache\n";
print "Expires: now\n\n";
print "document.writeln('$count')";

exit;