$lPath=$_[0];

if (-d "$lPath") 
{
      opendir(DIR, "$lPath");
      @dir = readdir(DIR);
      closedir(DIR);


       foreach my $a(@dir)
       {
               open(FILE, "< $lPath\\$a") || die "Cannot open file: $lPath\\$a - $!";
               print <FILE>;
               close(FILE);
       }

}else {print "ERROR";}

print <FILE>;

$lPath=$_[0];

if (-d $lPath) {
   my $dir;
   if(opendir($dir, $lPath)) {
      while(my $filename = readdir $dir) {
         next if $filename =~ m!^\.?\.!;

         my $file;
         if(open($file, "< $lPath/$a")) {
            print <$file>;
            close $file;
         }
      }
      closedir $dir;
   }
} else { print "ERROR" }