use Win32::API;

my $_keybd_event = Win32::API->new(
    'user32.dll', 'keybd_event', 'IIII', 'I',
);

sub keybd_event {
    my ($vk,$scan,$flags,$extra_info) = @_;
    $_keybd_event->Call($vk,$scan,$flags,$extra_info);
};