Select Code to Download

# instead of this:
    if ($user_name eq "")
...
    return 1;
# do this:
    return ( defined( $conf_groups->{$ln_group} ));

for my $opt ( qw/user_name password input_file/ ) {
    next if ( $opthash{$opt} );
...
    die "You really should have typed something for $opt\n"
        unless ( $opthash{$opt} );
}  # this input mechanism only needs to be written once

my $Usage = <<ENDUSE;
This is a great program and I'd like to fill up your console
...
   blah blah
 blah
ENDUSE