use Win32::API;

sub pl_prwin
{
	my $prwin;
	my $hands;
	my $board;
	my $GetPrwin;
	my $lpBuffer;
	my $return;
	
	$hands = "AhKh|Td9s|QQ+,AQs+,AQo+|JJ-88|XxXx|XxXx|XxXx";
	$board = "Ks7d4d";
	
	$GetPrwin = new Win32::API(
        "OH-DLL.dll", "prwin1($hands, $board)", 'PP', 'N');
    
	$lpBuffer = " " x 80;
	$return = $GetPrwin->Call(80, $lpBuffer);
	$lpBuffer =~ s/\0.*$//;
	$prwin  = $lpBuffer;
	
	return $prwin;
}