$ftp = Net::FTP->new($host, Debug => 0, Passive => 1);
        $ftp->login ($username, $password);
        $ftp->binary();
        @set_of_files = $ftp->ls("*$thismonth-$thisday-$thisyear*.tar");