#!/usr/bin/perl
my $dir='T://alle/common';
opendir(DIR, $dir) or die "Konnte $dir nicht öffnen ($!)\n";
close(DIR);