Select Code to Download

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

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

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

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