The chat client will first have to connect to the academic server and establish a connection with that server before it can login to the chat server (which is running on the academic server).
I tried using "use Net::SSH::Perl" and adding this code line to connect to the server using ssh:
sub server { my $ssh = Net::SSH::Perl->new($host); $ssh->login('uas'); &init_connect; }
and got this error in the terminal:
*** unhandled exception in callback: *** The getpwuid function is unimplemented at C:/Perl/site/lib/Net/SSH/Perl.pm line 110. *** ignoring at C:\Documents and Settings\Jamie\Desktop\simple-client.pl line 7 0.
a password should not be needed since its using a authentication key. I should also note that the chat client connects to the chat server using IO::Socket::INET.