I answered my own question.... $ftp->message That fixed it.

foreach (<DATA>){
    chomp;
    
    my ($user, $passwd) = split(/,/,$_);
    next if (length $user <= 0);
    print $user . " " . $passwd . "\n";
    chomp $user;
    chomp $passwd;
    my $ftp = Net::FTP->new('xxxxxxx', Debug => 0, Passive => 1);
    $ftp->login($user,$passwd), $ftp->message;
    
    if ( $ftp->message =~ /Not\slogged\sin/){
        print "Could not login\n\n";
    
    }else{
        $ftp->mkdir('test'), $ftp->message;
        if ( $ftp->message =~ /failed\sto\screate/){
            print "Could not make dir\n";
        }else{
            $ftp->rmdir('test');
        }
    }

}
[download]