in reply to i want to go through the code of Net::Ftp module in perl

Or the brute force way:

  % find /usr/lib -path '*/Net/FTP.pm' -print

HTH.