#!/usr/bin/perl -w
use strict;

print "Please enter the file name\n";
my $in = <STDIN>;
chomp($in);
open inFile, '<', $in;
open outFile, '>', 'out.txt';

while (<inFile>) {
    my $line = $_;
    # ... do stuff to $line here
    print outFile $line;
}

close inFile;
close outFile;