Select Code to Download

sub slurp {
        my $fname = shift;
...
close $FILE;
        return $key;
}

sub slurp {
        my $fname = shift;
...
        chomp( my $key = <$FILE> );
        return $key;
}

sub has_key {
        my ($key, $keys) = @_;
...
        }
        return $suc;
}

sub has_key {
        my ( $key, $keys ) = @_;
...
        }
        return 0;
}

sub has_key {
        my ( $key, $keys ) = @_;
        return scalar grep $key eq $_, split /\n/, $keys;
}