#!/u3/thesis/clipper/bin/perl
eval "exec perl -S $0 $*"
	if $running_under_some_shell;
rename("archie", "archie.ori");
open(FILE, "archie.ori");
open(OUT, ">archie");
print OUT "\#\!$ARGV[0]\n";
print $_ unless (!($_ = <FILE>) || ($_ =~ /^\#\!/));
while (<FILE>) {
    print OUT $_;
}
close(OUT);
