#!/usr/bin/perl
## Initially generated by Win32-GuiTest Recorder (v1.03)

## Pragmas/Directives
use strict;
use warnings;

## Imports
use Win32::GuiTest qw/:ALL/;

$Win32::GuiTest::debug = 0; # Set to "1" to enable debug output.

## Main/Core
SendRawKey(VK_LCONTROL, KEYEVENTF_EXTENDEDKEY);
MouseMoveAbsPix(325, 279);
SendMouse('{LEFTDOWN}');
MouseMoveAbsPix(362, 283);
SendRawKey(VK_LCONTROL, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP);
MouseMoveAbsPix(362, 283);
SendMouse('{LEFTUP}');
sleep 1;
SendMouse('{RIGHTCLICK}');
SendMouse('{RIGHTCLICK}');
__END__