my $directory = "smb://bioboss/shared/Hubert/versuch";
opendir(DIR, $directory) || die("Cannot open directory");
my @thefiles= readdir(DIR);