#!/usr/bin/perl

use strict;

my @files = glob("HistEq2/*.pgm");

`mkdir -p Gamma/`;

foreach my $f (@files) {
  my $o = $f;
  $o =~ s/^.*\///g; $o = "Gamma/$o";
  print "$f -> $o\n";
  `pnmgamma 1.3 $f | pnmsmooth > $o`;
}