perl -MFile::Find -le "find ( sub { $s+= -s if /mp3$/i }, '.' );print 'size ',$s"