'handlers' => {
          'response_data' => [
            {
              'callback' => sub { "DUMMY" }
            },
            {
              'callback' => $VAR1->{'_previous'}{'_previous'}{'_previous'}{'_previous'}{'handlers'}{
+'response_data'}[1]{'callback'}
            }

##</code><code>##

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);