use warnings;
use strict; 
use Net::Ftp;
use File::Find;

my $ftp = Net::FTP->new("192.168.123.456", Debug => 0)
      or die "Cannot connect to host: $@";

$ftp->login("user",'password')
      or die "Cannot login ", $ftp->message;

my @files = $ftp->ls(); 
foreach my $file(@files) {
	$ftp->get($file)
		or die "get failed", $ftp->message;
	}