perl найти файл по размеру

как реализовать сабж с помощью File::Find file()?
Я новичёк, никак не могу разобраться