Select Code to Download

#!c:\perl\bin -w

...

print (1); # this used to be "print ($1)" but the warning
           # about the undefined variable was annoying

http://www.randmcnally.com/rmc/directions/dirGetMileageInput.jsp
http://www.ihoz.com/ilist.html
200 OK
http://www.randmcnally.com/rmc/directions/dirGetMileageInput.jsp
1

http://www.altavista.com/
Couldn't find the match-string in the response

  use strict;
  use warnings;
...
  } else {
    print "Couldn't find the match-string in the response\n";
  }