#!/usr/local/bin/perl -w

use WWW::Mechanize;
use strict;

my $mech = WWW::Mechanize->new( );
my $url = 'https://mybox/bin/engine.cgi';
my $base = 'https://mybox';
my $username = 'foo';
my $password = 'foo';
$mech->credentials($base, $username, $password);
$mech->get( $url );

use Data::Dumper;

print Dumper($mech);