&Fill_List("/dir/error*", "/tmp/err_list");

sub Fill_List {
        $mask = shift;
        $file = shift;

        open (list, "> $file");
        open (infile, "`ls $file|`");

        $debug && warn "ls $mask\n";

        while (<infile>) {
                print list $_ . "\n";
        }
        close(infile);
        close (list);
}