use strict;
use warnings;
use Net::FTP;

my $directory = "the directory";
my $ftp;

$ftp = Net::FTP->new("1.1.1.1", Debug => 0)
	|| die "Cannot connect to 1.1.1.1: $@";
$ftp->login("user",'pass')
	|| die "Cannot login ", $ftp->message;
$ftp->binary();
$ftp->get("$directory.thedir","C:\\temp\\ftp")
	|| die "get failed ", $ftp->message;
$ftp->quit;