use strict;           # Don't forget !
use Net::FTP;

my $host = "your.favorite.server";
my $user = "user";
my $password = "password";

my $f = Net::FTP->new($host) or die "Can't open $host\n";
$f->login($user, $password) or die "Can't log $user in\n";