use Win32::GuiTest qw(:ALL :SW);
  $Win32::GuiTest::debug = 0; 

  my ($ultra) = FindWindowLike(0, "^Ultra");  
  print "$ultra\t", GetWindowText($ultra), "\n";

  SetForegroundWindow($ultra);    
  
  SendKeys("^+{HOME}");
  SendKeys("^c");

  my $str = SendKeys("^v"); #Selected text to be stored in $str variable (Not Working)
  print $str;