$n=15;
while($n>0)
{
  print "$n,";
  $n--;
  sleep(1);
}


##</code><code>##

C:\Pradeep>perl test.pl
15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,
C:\Pradeep>

##</code><code>##

use Win32::GuiTest qw(FindWindowLike GetWindowText SetForegroundWindow SendKeys);
system('"start %windir%\system32\mstsc.exe"');	
$Win32::GuiTest::debug = 0;	
$max_Sleep_time=3;
$Cur_Sleep_time=0;
do
{
  sleep(1);	
  @windows = FindWindowLike(0, "Remote Desktop Connection");
 $number_of_windows_opend = scalar(@windows);		
  $Cur_Sleep_time++;
}while ($number_of_windows_opend==0&&$Cur_Sleep_time!=$max_Sleep_time);
for (@windows) {
  SetForegroundWindow($_); 		
  SendKeys("server_name");	
  SendKeys("{ENTER}"); 
  sleep(10);
  @windows_seq = FindWindowLike(0, "Windows Security");
     for (@windows_seq)	{
	  SetForegroundWindow($_);
          SendKeys("Password01");
          SendKeys("{ENTER}");
	}
@windows={};
exit;
  }