#!/bin/perl

open(DATA,"/home/testbot/var/genethic.log");
while(<DATA>) {
	chop;
	($name,$value)=split(/:/);
	if ( $ARGV[0] eq "USERMOVE" && $name =~ /USERS_MORE|USERS_LESS/ ) {
		print "$value\n";
	}
} close(DATA);
print "\n\n";
