Quick Fix - Use of uninitialized value in pattern match

Fixed this error we had been receiving:

_'Use of uninitialized value $html in pattern match (m//) at /usr/local/share/perl/5.10.1/Mojo/DOM/HTML.pm line 82.'_

Just wrapped the while in an if. Let me know what you think.