$output_file = "ConsumerMV.sh";
$input_file = "mikels.out";
$quit_code = "quit\n";

open(INFILE, $input_file) or die "Cannot read from input file: $!";
open(OUTFILE, ">$output_file") or die "Cannot write to output file: $!";
    while(<INFILE>){
    chomp;
    print "Saw $_ in data.txt\n";
    print FILEHANDLE $_ or warn "Can't print: $!";                   
}
close INFILE or die "Can't close INFILE: $!\n";
close OUTFILE or die "Can't close OUTFILE: $!\n";