use strict;
use warnings;

open my $inFile, '<', $fn or die "Failed to open $fn: $!";
open my $outFile, '>', $fo or die "Failed to open $fo: $!";
while (<$inFile>) {
    ...
    print $outFile "...";
}

close $inFile;
close $outFile;