bind($port, 'Ssh');

sub bind ( $$){
my $port = shift;
my $obj =shift
......

}