#!/usr/bin/perl
use strict;
use warnings;
use Net::FTP::Recursive;

my $host = "myhost.org";
my $username = "myusername";
my $password = "mypassword";
my $remotedir = "remotedir";

my $ftp = Net::FTP::Recursive->new($host, Debug => 0) or die "\nCan't connect to $host" ;
$ftp->login($username,$password) or die "\nCan't login to $host, check username and passowrd";
$ftp->cwd($remotedir) or die "\nCan't cwd to path $remotedir";
$ftp->rget();
$ftp->quit;