or download this
perl -W hgrepurl.pl http://www.senopt.com
Subroutine Cwd::fastcwd redefined at c:/ActivePerl/site/lib/Cwd.pm lin
+e 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 li
+ne 812
main::get_html() called too early to check prototype at hgrepurl.pl li
+ne 27.