use strict;
use warnings;

my $Dir='C:/1';
&opdir();


sub opdir{

    opendir (my $DirHandle,$Dir) or die "dir nicht gefunden\n";
	
	while(my $Filename = readdir($DirHandle))
    {
     next if($Filename eq '.' or $Filename eq '..');
 
     if(-d $Dir.'/'.$Filename)
     {
        my $SubDir = $Dir.'/'.$Filename;
	    &opdir($SubDir);
	 }
     elsif(-f $Dir.'/'.$Filename) 
	 {
	    my $File = $Dir.'/'.$Filename;
        &opfile($File);
     }
    }
}

sub opfile{

    open (my $FileHandle,$Dir) or die "file nicht gefunden\n";
  
    while (my $zeile = <$FileHandle>)
    {
	   print "$zeile\n";
	
	}	
}