my $ftp = Net::FTP->new("foo.bar.com", Debug => 1, Timeout => 120);