use Net::Telnet;
  $telnet = new Net::Telnet ( Timeout=>35,Prompt => '/ksh\$ $/');

  $telnet->open('sunspot');
  $telnet->login('snuppy', 'snuppy_dog');
  @lines = $telnet->cmd('who');
  print @lines;
  $telnet->close;