perl 코딩을 하는데 에러가 나 미치겠네요
standard input 텍스트 파일 이름을 아웃풋 파일에 쓰려고 하는데 rename funciton을 쓰려고 하거든요.

close OUTFILE; 다음을 못고치겠어요.
완전 초보좀 도와주세요

#! /usr/bin/perl -w

open (OUTFILE, \'>batch_out.txt\');

while ($line =<>){               
 
 if ($line =~ m/RECT/) {
  $line =~ s/\\RECT //g;
  print OUTFILE "$line";
 print "$line";
   }
   }
close OUTFILE;

$input_file_name = \'<>\';
my $prefix = $input_file_name;
$prefix =~ s/\\.txt //;
 
rename ("batch_out.txt","batch_out2.txt") || die ("error");