Select Code to Download

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

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";

my $dir = "my/favorite/dir";

$f->cwd($dir) or die "Can't cwd to $dir\n";

my $file_to_get = "something";
my $file_to_put = "other something";

$f->get($file_to_get) or die "Can't get $file from $dir\n";
$f->put($file_to_put) or die "Can't put $file into $dir\n";

my $file_mdtm = $f->mdtm($file) or die "Can't find $file in $dir\n";

my $file_mdtm = $f->mdtm($file) or die "Can't find $file in $dir\n";

...
{
    print "$file is more than 5 days old\n";
}

$, = "\n";
my @files = $f->ls;
print @files, "\n";

$f->ascii();
$f->binary();

my $f = Net::FTP->new($host) or die "Can't open $host: $@\n";