use LWP;
use Data::Dumper;

# Login & get DSID cookie
my $ua = new LWP::UserAgent;
my $url = 'https://jt-sa-01/dana-na/auth/url_admin/login.cgi';

my $req = HTTP::Request->new(POST => $url);
$req->content_type('application/x-www-form-urlencoded');
$req->content('username=admindb&password=dana123&realm=Admin%20Users');
my $res = $ua->request($req);
print Dumper($res);