#!/usr/bin/perl

@names=glob("u.*.*.*.txt");
foreach $a (@names) {
  print "$a\n";
  `cp $a u.txt`;
  `./u2gif`;
  $a=~s/.txt/.gif/;
  qx[cp u.gif $a];
}