my $ftp = Net::FTP->new ('ftp.foo.com', Domain => AF_INET);