perl -e 'sub f{$d=pop;/\.pm/&&-f$_&&print"$_\n";-d$_&&f($_)for(<$d/*>)}f($_)for@INC'