Сравнение папок и файлов на ПК и FTP

#!/usr/bin/perl -w
 
use strict;
use warnings;
use POSIX qw(strftime);
use Net::FTP;
 
# Vars
 
my $ftp_host = ""; 
my $ftp_user = "";
my $ftp_password = "";
my $local_folder = "";
my $date = strftime('%F', localtime);
my $time = strftime('%d-%b-%Y' ,localtime);
 
 
# Get local folder listing
 
    opendir (DIR, $local_folder) or die "Error in opening dir $local_folder: @!";
    my @lf = readdir DIR;
    closedir(DIR);
 
 
 
# Connecting to ftp
 
my $ftp = Net::FTP->new($ftp_host, Passive => 1, Debug => 0) or die "Cannot connect to $ftp_host: $@";
$ftp->login($ftp_user, $ftp_password) or die "Cannot login: " . $ftp->message;
$ftp->binary();
my @ftp_remote_folders = $ftp->ls();
 
foreach my $ftp_folder(@ftp_remote_folders){
        if ($ftp_folder ~~ @lf){
            print "local analog of $ftp_folder found\t .... \t";
            $ftp->cwd("../".$ftp_folder) or die "Cannot change directory: ", $ftp->message;
            print "entering in $ftp_folder\n";
        
            #get file listing in current local folder
            opendir (LDIR, $local_folder."/".$ftp_folder) or die "Error in opening dir $local_folder: $!";
            my @lfiles = readdir LDIR;
            closedir(LDIR);
 
            #get file listing in current remote folder
            my @rfiles = $ftp->ls();
        
            print  "Compare with: ".$local_folder."/".$ftp_folder."\n";
 
            foreach my $remote_files(@rfiles){
                if($remote_files ~~ @lfiles){
                    print $remote_files." found localy\n";
                }
                else{
                    print "downloading ".$remote_files."\n";
                    $ftp->get($remote_files, $local_folder."/".$ftp_folder."/".$remote_files) or die "Could not get $remote_files: ", $ftp->message;
                }
            }               
        }
        else{
            print "No local analogs were found. Exiting...";
        }
}
 
 
    $ftp->quit();