#!/usr/bin/perl -w

use strict;
die "$0 <file>\n" unless $#ARGV == 0;

my @info;
@info = `file $ARGV[0]` or die $!;
$info[0] =~ /PNG image data, (\d+) x (\d+),/ or die "unexpected file type";
print "$2 / $1\n";