my $glob_dir=File::Spec->join($source_dir, '*'.$endung);