$ perl -MFile::Find -Mstrict -Mwarnings -E '
my %largest = ( name => q{}, size => 0 );
find( sub {
   my $blocks = ( stat )[ 12 ];
   do {
      $largest{ name } = $File::Find::name;
      $largest{ size } = $blocks;
      } if $blocks > $largest{ size };
   }, q{.}
   );

say qq{$largest{ name } - $largest{ size } blocks};'
CentOS-5.10-x86_64-bin-DVD-1of2.iso - 9125976 blocks
$