use Net::FTP::Recursive;
$netObj = Net::FTP::Recursive->new("x.x.x.xx", Debug => 0);
$netObj->login('userName','password');
$netObj->cwd('/home/monk/dirName');
$netObj->rget();
$ftp->quit;