More Work Made Easy with Net::FTP::Common

use Company::FTP; 

my $ftp = Company::FTP::handle_for 'usc';

my %retval = $ez->dir;
use Data::Dumper;
warn "NEW_DIR ...", Dumper(\%retval);
NEW_DIR ...$VAR1 = {
          'image-database' => {
                                'owner' => 'root',
                                'month' => 'Oct',
                                'linkTarget' => undef,
                                'inode' => '2',
                                'size' => '4096',
                                'group' => 'daemon',
                                'yearOrTime' => '2000',
                                'day' => '17',
                                'perm' => 'drwxr-xr-x'
                              },
          'test' => {
                      'owner' => 'root',
                      'month' => 'Jan',
                      'linkTarget' => undef,
                      'inode' => '1',
                      'size' => '6',
                      'group' => 'root',
                      'yearOrTime' => '1999',
                      'day' => '27',
                      'perm' => '-rw-r--r--'
                    },