Perl Win32 -W API sample

perl-win32-w-api-sample.pl

use strict;
use utf8;
use Encode;
use Win32::API;

my $messagebox = Win32::API::More->new (
    "user32.dll",
    "int MessageBoxW (HWND hWnd, LPCWSTR lpText, LPCWSTR lpCaption, UINT uType)"
    ) or die ("failed new");

my $r = $messagebox->Call (
    0, # NULL
    encode ("UTF-16LE", "☃テキスト☃"),
    encode ("UTF-16LE", "🍣キャプション🍣"),
    0  # MB_OK
    );

print "$r\n";