###-- ( int(((-s _) + 1023) / 1024 ) > $size_input )--###
   ###-- GET ERROR if $size_input is used: Use of
   ###-- uninitialized value in numeric gt (>) 
          push ((@large_files), $name);
    }
}    ###-- End sub --###

print scalar @large_files;
print join("\n",@large_files);

exit;
<snip>