Net::Telnet

[Kris G Findlay]

i have written this script .. just supposed to log into computer on network 
and start a forwarded gnome session to my Nt machine ! 

problem is i cant get the prompt to match.

#############perl script ################

 #!e:\perl\bin\perl

 use Net::Telnet;

 $telnet = Net::Telnet->new              
  (
        Timeout => 90,
        Prompt => '/[\$%#>] $/',
        Host => '192.168.0.2'
   );

 $telnet->login('kris', 'password');    

 $telnet->cmd('DISPLAY=192.168.0.10:0');

 $telnet->cmd("export DISPLAY");                 

 $telnet->cmd("gnome-session");         

 $telnet->close;                                 

exit;

########### end of script #################

[----------------------]
     Kris G Findlay
 [EMAIL PROTECTED]
[----------------------]