use Win::GUI;
$main = Win32::GUI::Window->(-name=>'Main',-width=>600,-heigth= >600);
$Screen = new Win32::GUI::DCC("DISPLAY");
$main->Show;
Win32::GUI::Dialog();

sub Main_Terminate{-1;};
sub Main_MouseDown{
($x,$y)=Win32::GUI::GetCursorPos;
print "$x\n";
print "$y\n";
}