【perl】ファイル名を変更する

#ファイル名を変更する
#06.06.12 新規作成
#06.06.12 ファイル加工追加（行頭３行削除）

#ファイル名変更

@files=glob("*.*");
$n=100;
#$flag_read=1;
$file_name1 = "file";
$file_name2 = ".tmp";
$file_name3 = "change.log";
open(OUT,">>$file_name3");

foreach (@files){
if(/(^.*)\.csv.*/){
# open(PLOTFILE,$_);
$temp = $_ ;
$newname = $file_name1;
$newname .= $n ;
$newname .= $file_name2;
rename( $temp , $newname );
$n = $n +1 ;
$line = $temp;
$line .="\t";
$line .=$newname;
$line .= "\n";
print OUT $line;
}
}

close(OUT);


#行頭３行削除　*.tmp→*.tm2

@files=glob("*.*");
$n=0;
$flag_read=1;

foreach (@files){
if(/(^.*)\.tmp.*/){
$flag_read=1;
open(PLOTFILE,$_);
$file_name1 = $1 ;
$file_name1 .=".tm2";
open(OUT,">>$file_name1");
while($line = <PLOTFILE>){
if($flag_read > 3){
print OUT $line;
}
$flag_read =$flag_read +1;
}
close(OUT);
close(PLOTFILE);
}
}