Select Code to Download

sub ssh_connect {
    my ($self, $user, $pass) = @_;
...

    print "$user and $pass\n";
}

$foo->ssh_connect($user, $password);
$foo->ssh_connect({user => $user, pass => $password});