#!/usr/contrib/bin/perl

opendir(DIR,'.');
@filenames = readdir(DIR);
close(DIR);
foreach $file (@filenames){
 if  ($file =~ /(.*)\.psc$/) {
   system("mv $1.psc $1.ps\n");
 }
}