use Win32::GUI;
$text = "Testing!";
$main = Win32::GUI::Window->new(
        -name   => 'Main',
        -text   => 'INSCO Inventory Manager',
        -height => '600,
        -width  => '800'
);
$main->AddLabel(-text => $text);

$main->Show();
Win32::GUI::Dialog();
sub Main_Terminate {
    -1;
}