#!/perl -T
use strict;
use warnings;
use WWW::Mechanize;
my $agent = WWW::Mechanize->new();
my $baseurl = 'http://sd.reclaimedcomputers.com/';
my $authenticate = 'sd/agent/authentication/sd';
my $args = '?sd_username=admin&sd_password=canttellyou&CallerID=7702505192&Extension=21';
my $url = $baseurl . $authenticate . $args;
$agent->get( $url );
####
Error GETing http://sd.reclaimedcomputers.com/sd/agent/authentication/sd?sd_username=admin&sd_password=canttellyou&CallerID=7702505192&Extension=21: Not Found at t/99-test_remotely.t line 28
##
##
127.0.0.1 sd.reclaimedcomputers.com
##
##
if ( $res->is_error ) {
if ( $self->{autocheck} ) {
$self->die( 'Error ', $request->method, 'ing ', $request->uri, ': ', $res->message );
}
}