#!/usr/bin/perl
# -*- perl -*-

while (<>) {
    $line = $_;

    while ($line =~ s@img src=\"([^\"]+)\" alt@sprintf("img src=\"%s\" %s alt", $1, &pngsize($1));@e) {
    }

    print $line;
}
