Help for this page
$ perl -MFile::Find -Mstrict -Mwarnings -E ' my %largest = ( name => q{}, size => 0 ); ... say qq{$largest{ name } - $largest{ size } blocks};' CentOS-5.10-x86_64-bin-DVD-1of2.iso - 9125976 blocks $