#!/usr/bin/perl
$Inputfile='filename';
open (OUT, ">$inputfile.out") or
       die "cannot open file 4 writing: $!\n";

open (IN,"<$Inputfile") or die "cannot open file: $!\n";

while (<IN>){
....
.....
print OUT;  #print to $Inputfile.out file
}