login as: abc
abc@1.2.6.8's password:
Last login: Thu Jan 16 13:46:28 UTC 2014 from 1.2.3.8 on pts/0

                              WARNING!
This computer system and network is PRIVATE and ...

No mail for abc

Please enter your unique ID: IJAF
History will be kept in /home/abc/.history-IJAF
Term type is now xterm
hostname:/home/abc-> 

##</code><code>##

$cli = new Control::CLI( Use     => 'SSH',
                         Timeout => 30,
                       );

$cli->connect(  Host            => $host,
                Username        => 'abc',
                Password        => 'pass',
             );

$port = $cli->port;

if ( defined($port) ) {
    print "\tSSH connection to server ($host) established!\n";
} else {
    print "\tSSH connection to server ($host) could not be established... Exiting program.\n";
    exit;
}