#!/usr/bin/perl

use strict;
use warnings;

use LWP::UserAgent;
use Data::Dumper;

my $ua = LWP::UserAgent->new();
my $header = $ua->head("http://www.praxisdienst.co.uk");

print Dumper($header);