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

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";

#!/usr/bin/perl

use strict;
use warnings;
use POSIX;
use Filesys::SmbClient;



my $smb = new Filesys::SmbClient(username  => "Hubert");

my $fd = $smb->opendir("smb://bioboss/shared/Hubert/Blast");
    my @thefiles = $smb->readdir($fd);
        
    
  close($fd);

#foreach(@thefiles) {
# 
#}


my $file;
my @raw_data;
my $count;
my @array;


print "Start entering foreach.....\n";

foreach $file (@thefiles)              
   {
       #print $file;
       open (DAT, $file) || die ("Could not open file");
       @raw_data = <DAT>;
               foreach my $wrestler (@raw_data)
                  
 {
                  
     #print "Hallo",@raw_data;
                  
     #print "opening example\n";
           
                  
     open (bigShot, ">>hello_Jesus.txt") || die ("Could not open file. $!");
               
     print bigShot ($wrestler);
               
     close (bigShot);
                  
 } 
                  
 
                  
 print "finished\n"; 
                  
 $count++;            
   }
   
   print "finished reading all Files.....closing Directory\n";
   print $count;
   

Could not open file at /home/Hubert/installed/eclipse/workspace/Database_Search/networkAccess.pl line 34.

open (DAT,"<",$file) || die ("Could not open file $file: $!");

Could not open file blast-20060121-02334734.txt: No such file or directory at /home/Hubert/installed/eclipse/workspace/Database_Search/networkAccess.pl line 34.