use strict;
use warnings;
use utf8;
use Win32::GuiTest qw/:ALL/;
use Win32::Clipboard;
use Win32::Exe;
my $exe=Win32::Exe->new('C:\Users\treeboa\perl\pic.exe');
my $manifest=$exe->get_manifest;
$manifest->set_execution_level('requireAdministrator');
$exe->set_manifest($manifest);
$exe->write;

..........
..........
Processing
..........
end