my $npath = '//bioboss/shared/Hubert/versuch';
my $lpath = '/mnt';

system('/sbin/mount', '-t', 'smbfs', $npath, $lpath) == 0
  or die "Cannot mount '$npath' to '$lpath': $?\n";
opendir my $dh, $lpath
  or die "Cannot open directory '$lpath': $!\n";

my @thefiles = readdir $dh;

close $dh
  or die "Cannot close directory '$lpath': $!\n";
system('/sbin/umount', $lpath) == 0
  or die "Cannot unmount '$lpath': $?\n";