#!/usr/bin/perl

use XML::Twig;

foreach (@ARGV) {
  my $filename = $_;
  my $twig=XML::Twig->new(twig_handlers => {
        'svg' => sub {
            my $height = $_->{'att'}->{'height'};
            my $width = $_->{'att'}->{'width'};
            if ( $height ne $width) {
                print "$filename $width x $height\n";
                }
            }
        } );    # create the twig
  $twig->parsefile($_);        # build it
}
