use Win32::GUI;

use Perl2;

$INSTANCE = SWOT_INSTANCE->new();
$INSTANCE->MW->Show();

Win32::GUI::Dialog();

sub print_and_die {
    my($text) = @_;
    my $err = Win32::GetLastError();
    die "$text: Error $err\n";
}