I am doing some property searching and thought it would be a fun way of sharing thoughts on properties with my wife (who's on a different shift) by using Mechanize and creating annotations to each other's choices.

I've run into a problem with one particular site, however, who seem to take exception to the script! To demonstrate I have taken the script back to basics and am pointing to their home page. I wonder if a kind soul could take a look and see if there's a problem, or a way of resolving this? (Note: I can access via a browser, (safari, firefox) but not the script!

#!/usr/bin/perl
use strict;
use WWW::Mechanize;
use CGI qw(:all);
 use CGI::Carp qw(fatalsToBrowser);

my $add = 'http://www.coldwellbanker.com';
print "Content-type: text/html\n\n";

  my $mech = WWW::Mechanize->new();
  $mech->get($add);
  $mech->agent('Firefox/1.0 (Windows; U; Win98; en-US; Localization; r
+v:1.4) Gecko/20030624 Netscape/7.1 (ax)');

  my $result = $mech->content;
print "<br>$result<br>";
[download]