#!/usr/pkg/bin/perl
if (!@ARGV) {@ARGV = (STDIN);}
foreach $filename (@ARGV) {
 $length = 10;
 print STDERR "checking size of $filename\n";
 if ($filename ne STDIN) {open(STDIN, $filename);}
 read(STDIN, $header, $length);
 print STDERR "header is ", unpack('H*', $header), "\n";
 ($width, $height) = (unpack('S*', $header))[3, 4];
 while (read(STDIN, $data, 4096)) {
  $length += length($data);
 }
 print "WIDTH='$width' HEIGHT='$height' ALT='$length bytes GIF image'\n";
}