my $CheckLen = Win32::API->new('...', 'CheckLen', 'P', 'V')
    or die ...;

sub CheckLen {
    $len = pack('L', $_[0]);
    $CheckLen->Call($len);
    $_[0] = unpack('L', $len);
}