use CGIApp;
use CGI;

################################

my $q = CGI->new();

if ($q->query_string =~ /^keywords=walkfrom(\d+)to(\d+)$/)
{
	$q->param(-name=>'op',-value=>'move');
	$q->param(-name=>'mode',-value=>'walk');
	$q->param(-name=>'location',-value=>$1);
	$q->param(-name=>'destination',-value=>$2);
}
elsif ($q->query_string =~ /^keywords=(walk|jump|run|fall)(\d+)?$/)
{
	$q->param(-name=>'op',-value=>'move');
	$q->param(-name=>'mode',-value=>$1);
	$q->param(-name=>'amount',-value=>$2||10);
}
elsif ($q->query_string =~ /^keywords=explode$/)
{
	$q->param(-name=>'op',-value=>'explode');
}

my $app = CGIApp->new(QUERY=>$q);

$app->run();