#!/usr/bin/perl

use strict;
use warnings;

use HTML::Parser;

my $p = HTML::Parser->new(start_h => [\&start, 'tagname, attr, attrseq'],
                          end_h   => [\&end,   'tagname'],
                          text_h  => [\&text,  'text']);

$p->parse_file(shift);

sub start {
  my ($name, $attr, $attrseq) = @_;

  print '<' . uc($name);
  if (keys %$attr) {
    foreach (@$attrseq) {
      print ' ' . uc($_) . '="' . $attr->{$_} . '"';
    }
  }
  print '>';
}

sub end {
  print '</' . uc($_[0]) . '>';
}

sub text {
  print $_[0];
}