use Net::Telnet;
BEGIN { $|=1 }
$user = "administrator";
$pass = 'abc';

$telnet = new Net::Telnet ( Timeout=>20, Errmode=>'die', Prompt => '/[%#>] ?$/', Dump_Log=>"dumplogs.txt", Input_log=>"inputlogs.txt", Output_log=>"outputlogs.txt");

$telnet->open('xx.xx.xx.xx');
$telnet->login(Name=>$user, Password=>$pass, Prompt=>'/[%#>:] ?$/');
#$command = qq(msiexec \/qn \/i \\\\yy.yy.yy.yy\\SEP_Builds\\Jaguar\\Integration\\940\\DVD-SEP-EE\\SEPx64\\Sep64.msi \/norestart RUNLIVEUPDATE=0 \/l\*v C:\\Compatibility_Automation_Temp\\SepClientInstallLog.txt);
$command = q(msiexec /i \\\\yy.yy.yy.yy\SEP_Builds\Jaguar\Integration\940\DVD-SEP-EE\SEPx64\Sep64.msi /norestart RUNLIVEUPDATE=0 /l*v C:\Compatibility_Automation_Temp\SepClientInstallLog.txt);
#$command = q(msiexec /q /i \\\\yy.yy.yy.yy\SEP_Builds\Jaguar\Integration\940\DVD-SEP-EE\SEPx64\Sep64.msi /norestart RUNLIVEUPDATE=0);
#$command = "ipconfig  && net use J: \\\\yy.yy.yy.yy\\Public_Share\\Tarun";
print "command is: [$command]\n";
@output = $telnet->cmd(String=>$command);

=cut
@output = $telnet->cmd(join ' ',
			'C:\Windows\System32\msiexec.exe', '/q', '/i',
			"\\\\yy.yy.yy.yy\\SEP_Builds\\Jaguar\\Integration\\940\\DVD-SEP-EE\\SEPx64\\Sep64.msi",
			'/norestart', 'RUNLIVEUPDATE=0', '/l*v',
			'C:\Compatibility_Automation_Temp\SepClientInstallLog.txt');
=cut
print "output is:\n@output\n";

exit;