foreach my $key (@params) {
    print "$key = ";
    my $value = <>;  # must at minimum be "\n"
    chomp $value;       # must at minimum be ""
    redo unless length  $value;  # rerun loop if value is empty string.
}

##</code><code>##

-e $settings{output} and die "File Exists..will not override!";

open(OUT,">",$settings{output}) or die "Error while opening file: $!";

##</code><code>##

close IN  or warn "Error closing input $!\n";
close OUT or warn "Error closing output $!\n";