my $module_name = sprintf "Win32::".$ARGV[0];

eval "require $module_name";
die if $@;

$module_name->import();

$W1 = new Win32::GUI::Window(-name  => "W1",-title => "Main Window",-size  => [ 300, 200 ],);
$W1->Show();
Win32::GUI::Dialog();
sub W1_Terminate { return -1; }