perl -W hgrepurl.pl http://www.senopt.com
Subroutine Cwd::fastcwd redefined at c:/ActivePerl/site/lib/Cwd.pm line 812.
Subroutine Cwd::getcwd redefined at c:/ActivePerl/site/lib/Cwd.pm line 812.
Subroutine Cwd::abs_path redefined at c:/ActivePerl/site/lib/Cwd.pm line 812
main::get_html() called too early to check prototype at hgrepurl.pl line 27.

##</code><code>##

perl -c hgrepurl.pl http://www.senopt.com
hgrepurl.pl syntax OK