wordlist creator [perl]

wordlist creator by perl

=============================================================

#!/usr/bin/perl
$fail     = $ARGV[0];
$first     = $ARGV[1];
$last     = $ARGV[2];
if(@ARGV < 3){
print q(
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
x            Create wordlist Tool                  x
x~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~x
x  usage :         x
x  Rex.pl [File.txt] [First number] [Last number]  x
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
);exit;}
open (MYFILE,">$fail") || die "ERROR..!!";
@d = ($first .. $last);
        for $i (@d)
        { print MYFILE "$i\n"; }
close(MYFILE);
print "\n\n~~~> Wordlist In: $fail\n\n";
print 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
x          coded by REX / alm3refh.com             x
x               R.3.X@hotmail.com                  x
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx';
print "\n\n"

======================================================================

wordlist creator [perl] 2012-03-08T17:10:00-08:00 Rating: 4.5 Diposkan Oleh: r007-