my $f = Net::FTP->new($host, Port => 22, Debug=> 1) or die "Cannot open $host\n";

##</code><code>##

Net::FTP=GLOB(0x7ff09b0b55d8)<<< SSH-2.0-OpenSSH_6.0p1 Debian-4+deb7u2