use Win32::GUI;

my $main = Win32::GUI::Window->new(
	-name	=>	'main',
	-text	=>	'test',
	-width	=>	150,
	-height =>	150
);

my $icon = Win32::GUI::Icon->new('test.ico');

my $tray = $main->AddNotifyIcon(
	-name	=>	'tray',
	-icon	=>	$icon,
	-tip	=>	'test'
);

Win32::GUI::Dialog();


sub tray_Click
{
	$main->Enable();
	$main->Show();
	1;
}

sub main_Terminate
{
	-1;
}

sub main_Minimize
{
	$main->Disable();
	$main->Hide();
	1;
}