#! perl -slw
use strict;
use Win32::API::Prototype;

ApiLink(
    'User32', 
    q[ int MessageBox( HWND hWnd, LPCTSTR lpText, LPCTSTR lpCaption, UINT uType ) ]
) or die $^E;

MessageBox( 
    0, 'Some Text', 'A title', 0x200000|0x001000|0x000030 
) or die $^E;