#!/usr/bin/perl

use strict;

$| = 1;
main: {
    my $last_image;
    while (<STDIN>) {
        next if !/Generating\s*image:\s*(.*pgm)/i;
        my $image = $1;
        convert($last_image) if $last_image;
        $last_image = $image;
    }
    convert($last_image) if $last_image;
}

sub convert {
    my ($file_pgm) = @_;
    my $file_png = $file_pgm;
    $file_png =~ s/pgm$/png/;
    system("convert $file_pgm $file_png");
    print STDERR "Write: $file_png\n";
    unlink $file_pgm;
    1;
}

sub convert_im {
    my ($file_pgm) = @_;
    my $file_png = $file_pgm;
    $file_png =~ s/pgm$/png/;
    require Image::Magick;
    my $image = Image::Magick->new;
    $image->Read($file_pgm);
    $image->Write($file_png);
    print STDERR "Write: $file_png\n";
    unlink $file_pgm;
    1;
}
