!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new(
    cookie_jar  => {},
);
my $response = $mech->get('https://www.dab-bank.de/');
my $header = $response->headers->as_string;
say $header;
exit;