#!/usr/bin/perl

use warnings;
use strict;
use CGI qw/:standard/;
print header, start_html;
use CGI::Carp 'fatalsToBrowser';

use LWP::Simple;

my $page = "";
my $content = get($page);

my ($guests) = $content =~ m/\d+\s+Guests/;
my ($users)  = $content =~ m/\d+\s+Users/;

print "$guests and $users";