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

  if( ! ( $@ ) ) {
    print ...
  }