#!perl -w
use strict;
use warnings;

use Win32::GUI();

my $W1 = Win32::GUI::Window->new(
	-name  => "W1",
	-title => "First Window",
	-pos   => [ 100, 100 ],
	-size  => [ 300, 200 ],
);

my $W2 = Win32::GUI::Window->new(
	-name  => "W2",
	-title => "Second Window",
	-pos   => [ 150, 150 ],
	-size  => [ 300, 200 ],
);

$W1->Show();
$W2->Show();

Win32::GUI::Dialog();
exit(0);

sub W1_Terminate {
	return -1;
}

sub W2_Terminate {
	return -1;
}