#!/usr/bin/perl -w

use strict;
use warnings;
use Data::Dumper;


use Cwd qw(cwd);

use File::Find::Rule;

my $directory = "G:/EXAMPLE";
my $directory_label = "G:/EXAMPLE";



my $filename = "List_of_directories_with_dodgy_files_length_over_250_A.txt";

open(OUT_FH, "+>>$filename") or die "Can't open $filename: $!";

print "Start\n\n";

my @subdirs = File::Find::Rule->directory->in( $directory_label );


print Dumper(@subdirs);

foreach (@subdirs){

  print "#";

  my $directory_current = $_;
  my $rule =  File::Find::Rule->new;

  $rule->file;
  
  $rule->name( '*.*' );
  
  $rule->name(length >= 250);
  
  my @files = $rule->in( @subdirs );
  
  foreach(@files){
    print OUT_FH "$_";
    print OUT_FH "\n";
  }
}