if( $test eq "y" ) {
     
      # search for binary in perldoc Net::FTP           
      $ftp->binary();

       $ftp->get( $pkg ) or die "Cannot retrieve matching package: ",