my $telnet = new Net::Telnet ( Timeout=>86400, Errmode=>'die'); 
	       $telnet->open('xx.xx.xx.xx'); 
	       $telnet->waitfor('/login: $/i'); 
	       $telnet->print('xxx'); 
	       $telnet->waitfor('/password: $/i'); 
	       $telnet->print('xxx'); 
	       my $output = $telnet->waitfor('/\$ $/i');
	       $telnet->print("cd /testdata/BatchValidation/driver");
	       $output = $telnet->waitfor('/\$ $/i'); 
	       $telnet->print("sh $sDriver") or die "cannot execute the shell file";
	       $telnet->waitfor('/\$ $/i');
	       my @exit_status = ();
	       @exit_status = $telnet->cmd("echo $?") or warn "ugh\n";;
	       
	       print @exit_status;
	       
	       my $result = $exit_status[0];
	       print $result;
	       if ($result != '0') {
	       		
                          fnShowFormForExecution();
	       	}
	       elsif ($result == '0') 
	       {
	       		fnShowFormForGettingReport();
	       	}