my $ftp = Net::FTP->new($ipaddr, Debug=>1, Passive=>1) or die "Can't connect: $@\n";
print $ftp->sockhost;