#! /usr/bin/perl
use diagnostics; 

$tempdir="c:/Temp/OneFile";
opendir(TMP, $tempdir) || die;
@onefile= readdir(TMP);
closedir(TMP);

$permdir="c:/Support/Files";
opendir(PMD, $permdir) || die;
@allfiles= readdir(PMD);
closedir(PMD);

our @onefile_1;

foreach $file (@allfiles)
{
 if ($file eq "@onefile")
{ 
 rename("$onefile", "@onefile_1.txt");
}
}
exit(0);

__END__
:endofperl