Select Code to Download

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

...
    my $rv = $read_inputs->Call($buf);
    return ($rv, unpack('l4', $buf));
}