perl -MFile::Find -e 'fork;fork;find(sub{@ARGV=$_;1while<>},"/")while 1'