use Net::FTP;
package Net::FTP;
sub my_new_FTP_method { ... };
package main;
# your script here
$ftp = Net::FTP->new("some.host.name", Debug => 0)
      or die "Cannot connect to some.host.name: $@";
$ftp->my_new_FTP_method;