if ($opt_r) {
# find all the subdirectories of a given directory
 my @subdirs = File::Find::Rule->directory->in( '.' );
# Datei alter auslesen.i
 my @dateien = find( file => age => [ older => '1M' ], in => '$pfad' );

 foreach my $dir (@subdirs){
$dir =" $pfad$dir";

 my @dateien = find( file => age => [ older => '1M' ], in => '$dir' );

}}