# Connect ---------------------------
 print "Connecting to $hostname($username:$password)...\n";

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

 $telnet_put = Net::Telnet->new( Timeout => $timeout,
                                 Prompt => '/[\$%#>] $/' , 
                                 Host => $hostname );

 $telnet->login($username, $password);
 print "Login successfully.\n";

 @results =  $telnet->cmd("cd $envPath");

 $telnet->cmd("/opt/bea/tuxedo8.1/bin/tmloadcfGPPconfig.ubb");