I'm not sure what you were thinking when you decided to roll your own with IO::Socket, but here's an easier way:

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;
    }
[download]