#!/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 );