my $read_inputs = Win32::API->new("wsp", "ReadInputs", "P", "I");

sub ReadInputs {
    my $buf = "\x00" x (4 * 32/8);
    my $rv = $read_inputs->Call($buf);
    return ($rv, unpack('l4', $buf));
}