[Perl] Scan Directory

ว่าจะได้ลองทดสอบ SyntaxHighlight ไปด้วย แต่ลองแล้วไม่ติด - -"
ช่างมัน ค่อยไปโพสใส่ pastebin อีกทีก็ได้ว้า...

SOURCE CODE : http://pastebin.com/ACYeXFis

## Perl Scan Directory ##
use LWP::UserAgent;
print "Scan Directory\n[+] Target \"www.xxx.xxx\" : ";
chomp($domain=);
unless ($domain=~/http:\/\//) {
$domain='http://'.$domain;
}
print "Scan Directory : ",$domain,"\n";
$agent=LWP::UserAgent->new;
$agent->max_redirect(0);
open(FILE,"dir.txt");
@dir=;
close(FILE);
foreach (@dir) {
chomp;
$url=$domain.'/'.$_;
$response=$agent->head($url);
print "[] Scan : $url";
unless ($response->status_line=~/^404|^302/) {
print " ..... ",$response->status_line;
}
print "\n";
}


## dir.txt ##
0
1
12123
123
9
admin
administrator
administrators
back
backup
backups
backupz
etc
file
files
front
image
images
index
ip
list
lists
log
logfile
logfiles
login
more
new folder
new folders
old
pwd
pwds
password
password
root
roots
test
tesetz
text
texts
txt
secret
source
sources
web
webmaster
webmasters
z
zecret