#!/usr/bin/perl -w
# this code worked
use strict;
use WWW::Mechanize;

my $url = 'http://www.bluffsdogs.com/agree.asp';

my $robot = new WWW::Mechanize;
$robot->get($url);
#$robot->form_number('');
#$robot->form_name('');
#$robot->set_fields('radiobutton' => 'true');
#$robot->click();

# Get the reply to my question
my $html = $robot->content();

print "$html";