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

##</code><code>##

  
 /opt/bea/tuxedo8.1/bin/tmloadcf   GPPconfig.ubb
                            Really overwrite TUXCONFIG file: /users2/tec3/fundtech/env/GPPconfig [y, q] ? 

##</code><code>##

  
 # 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");