#!/usr/bin/perl

use strict;
use warnings;
use File::Find::Rule;

open(STDOUT, '>', 'size.txt');

my $rule =  File::Find::Rule->new;
$rule->file;
$rule->name( '*.pm' );
$rule->exec(sub {length >= 25});

my @files = $rule->in( @INC );
foreach my $file(@files){
    print $file, "\n";
}

exit;