#!/usr/bin/perl -w
use strict;
require HTML::TreeBuilder;
my $tree = HTML::TreeBuilder->new; # empty tree
$tree->parse($_) while ;
$tree->eof;
$tree->elementify();
# Looking for
#
my $content_type = $tree->look_down(
'_tag', 'meta',
sub {
my $elem = shift;
$elem->attr('http-equiv') eq 'Content-Type';
}
);
print $content_type->attr('content'), "\n";
__DATA__