sub _proto_init { 
    my $ssh = shift; 
my $home = $ENV{HOME} || $ENV{USERNAME}; 
    unless ($ssh->{config}->get('user_known_hosts')) { 
        defined $home or croak "Cannot determine home directory, please set the environment variable HOME"; 
        $ssh->{config}->set('user_known_hosts', "$home/.ssh/known_hosts2"); 
}

##</code><code>##

my $home = $ENV{HOME} || $ENV{USERNAME};