perl -M'File::Find' -e '$\ = qq(\n); find sub { (-s > 1048576) && print $File::Find::name }, q(.);'