<snip>
else {
        my ( $size_input ) = pop @_ ;
        if ( $^O !~ /(?:)dec\w+/i ) {
            my ( $dev,$ino,$mode,$nlink,$uid,$gid ) ;
            (( $dev,$ino,$mode,$nlink,$uid,$gid ) = lstat($_) ) &&
            ( $dev >= 0 ) &&
            !( $File::Find::prune |= ($dev != $File::Find::topdev ) ) &&
            ( int(((-s _) + 1023) / 1024 ) >= $size_input  ) &&
            push ((@large_files), $name) ;
            $number_of_files = scalar @large_files ;
            $timer->restart( min => 0, max => $number_of_files ) ;
            print $timer->report( "%45b %p\r", 10 ) ;
        }

##</code><code>##

##################################...........  76.9%
#########################....................  55.6%
"output of the file find hereafter"