#!/usr/bin/perl
# $Revision: 2 $
# $Date: 2008-09-12 15:11:40 +0300 (Fri, 12 Sep 2008) $

my %opt = (
# path to qstat, need for grab counter-strike statistic
    qstat   => '/usr/bin/qstat',
);
                                                                                                                             
my $var = $ARGV[0];

$do = `$opt{qstat} -a2s $var -old`;
$do=~/(\d+)\/\d+ players/ or warn "Error! Can't find data!\nIN :\n$do";
$d1 = $1;

print "$d1\n";
print "$d1\n";
print "cstrike\n";