use HTML::Entities; # encode and decode things like <, >, and & 
use HTML::Form; # for form processing 
use HTTP::Cookies; # keep track of cookie 
use HTTP::Request::Common; 
use LWP::UserAgent; # pretend we are a browser 
use Data::Dumper; 
use Exporter; 
use LWP::Debug qw(+); 
use strict; 

my $url = 'https://interddt.com/cqweb/logon/default_content.asp'; 

my $browser = LWP::UserAgent->new; 

my $response = $browser->request(POST "$url", [ DatabaseName => 'TECH', User => '<user id>', Password => '<password>' ]); 
die "Error at $url\n ", $response->status_line, "\n Aborting" 
unless $response->is_success; 
print "Whee, it worked! I got that ", 
$response->content_type, " document!\n";