perl -e 'system("find @INC -name DOM.pm")'