my $ftp = Net::FTP->new("some.host.name", Timeout => 50)
             or die "Cannot connect to some.host.name: $@";

##</code><code>##

perldoc Net::FTP

##</code><code>##

my $ftp = Net::FTP -> ("some.host.com", Debug => 1,
     Timeout => 50, Option => value, Option => value ...);