use strict;

my $output_file_name = "ConsumerMV.sh";
my $input_file_name = "mikels.out";

my $output_file_handle;
my $input_file_handle;

open( $input_file_handle, $input_file_name) or
    die "Unable to open input file '$input_file_name' : $!";

open( $output_file_handle, $output_file_name) or
    die "Unable to open output file '$output_file_name' : $!";

while (<$input_file_handle>) {
     do_stuff;
}
close $input_file;
close $output_file;