use Win32::API;

my $prwin1 = Win32::API->new('OH-DLL.dll', 'prwin1', 'PP', 'D')
    or die("Error linking to prwin1: $^E\n");

sub pl_prwin
{
    my $hands = "AhKh|Td9s|QQ+,AQs+,AQo+|JJ-88|XxXx|XxXx|XxXx";
    my $board = "Ks7d4d";
    return $prwin1->Call($hands, $board);
}