#!perl
use strict;
use warnings;

package Net::SSH2::Mine;
use Net::SSH2;
our @ISA = qw( Net::SSH2 );
my %NSM;

sub new {
    my $class = shift;
    my $self = $class->SUPER::new();
    $NSM{$self} = {
        prompt => '#',
        host   => 'host'
    };
    return bless $self, $class;
}

sub prompt {
    my $self = shift;
    return $NSM{[keys %NSM]->[0]}->{prompt}
}
sub host {
    my $self = shift;
    return $NSM{[keys %NSM]->[0]}->{host}
}

1;

package main;
my $ssh = Net::SSH2::Mine->new();
use Data::Dumper; print Dumper \$ssh; 
print $ssh->prompt . "\n";
print $ssh->host . "\n";
exit;

##</code><code>##

VinsWorldcom@C:\Users\VinsWorldcom\tmp> test.pl
$VAR1 = \bless( do{\(my $o = 5182840)}, 'Net::SSH2::Mine' );
#
host