#!/usr/athena/bin/perl

opendir (BINDIR, "/mit/mkgray/afs/bin");
@files = sort grep (/...+/, readdir(BINDIR));
foreach $fil (@files) {
	$error = `mv /mit/mkgray/afs/bin/$fil /mit/mkgray/ptmp`;
	print("Moving $fil: $error\n");
	open(NF, ">/mit/mkgray/afs/bin/$fil");
	$oldfile = `cat /mit/mkgray/ptmp/$fil`;
	print("Snarfed $fil\n");
	$oldfile=~s/\/afs\/athena\/contrib\/perl\//\/usr\/athena\/bin\//;
	print("Fixed this part: $&\n");
	print("Fixed $fil\n");
	print(NF $oldfile);
	print("Dumped $fil\n");
}