#!/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; rv:1.4) Gecko/20030624 Netscape/7.1 (ax)');

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