sub Win32::API::import {
    my( $class, $sub, $ret, $lib, @args )= @_;
    my( $pkg )= (caller 1)[3];
    my $obj = $class->new( $lib, $sub, [@args], $ret )
        or  croak( "Can't find $sub in $lib" );
    no strict 'refs';
    *{"$pkg::$sub"} = sub {
        $obj->Call( @_ );
    };
}