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

Port 22 is SSH, not FTP; try 21.

Two tips for future debugging, too:

1. Your script died when trying to create an FTP connection, before ->login() was even called, which is a clue that the credentials were not the problem.

2. Pay attention to output, especially if you specifically request debugging information. This line:

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

   is a dead giveaway that you're connecting to the wrong service even if you don't have the port numbers for common services memorized.