sub get_remote_listing {

    my $dir = $_[0];
    $ftp::session->cwd($dir);
    $ftp::session->ls;
}

sub get_local_listing {
    my $local_dir=shift;
    opendir(DIR, $local_dir) || die "can't opendir $local_dir: $!";
    my @files = grep { -f $_ } readdir(DIR);
    closedir DIR;
    \@files ;
}