It's been a while since I've dealt with Net::FTP but from what I recall, the login method does not raise an exception, you need to do that.

  eval {
    $ftp = Net::FTP->new( $in, Debug => 0 );
    $ftp->login( $username, $password ) 
      or die "Cannot login ", $ftp->message;
  };

  if( ! ( $@ ) ) {
    print ...
  }
[download]