#!/usr/bin/perl

use warnings;
use strict;

my $main_class = new Win32::GUI::Class(
	-name	=> "temp_Class",
        -color  => 5, # i think 5 is the default window color, it seems i can only go on a scale from 1-5
);

my $main = new Win32::GUI::Window(
	-name		=> 'Main',
	-title		=> 'test',
	-width		=> '325',
	-height		=> '310',
	-minsize	=> ['300', '310'],
	-class		=> $main_class,
	-style		=> WS_OVERLAPPEDWINDOW,
);

$main->Show();
Win32::GUI::Dialog();