use Win32::GuiTest qw(WaitWindow FindWindowLike SetForegroundWindow SendKeys);
use strict;
my @argv=("E:\\MIBOR_TimingTest\\MIBOR\\MIBOR.usr");
system(my @argv)==0 or die "Failed to execute Loadrunner (ret=$?): $^E";
#sleep 600;
my @whnds=FindWindowLike( undef,"^Mercury Virtual User Generator");
if (!@whnds){
die "Cannot find window with title/caption Mercury";
}
else{
printf("Window handle of Mercury is %x\n", $whnds[0]);
}

SetForegroundWindow($whnds[0]);
SendKeys("{F5}");