#!/usr/local/bin/perl
foreach $file (<*.gt>) {
   $file =~ s/\.gt/.tex/;
   print "rm -f $file\n";
   system "rm -f $file";
}
