sub ssh_connect {
    my ($self,%args) = @_;
    my $user = $args{user};
    my $pass = $args{pass};
      
    print "$user and $pass\n";
}