use Win32::GUI;


&mainwin;
&maintab;


Win32::GUI::Dialog();

sub Mainwin_Terminate {
   return -1;
}

sub mainwin {
    #### Defining color class for main window ####
    my $main_class = new Win32::GUI::Class(
        -name    => "temp_Class",
        -color  => 16, 
    );


    $Mainwin = new Win32::GUI::Window(
          -background => "red",
          -left   => 612,
          -top    => 15,
          -width  => 400,
          -height => 455,
          -name   => "Mainwin",
          -text   => "Window Title",
          -class  => $main_class
          );
    $Mainwin->Show();
}

sub maintab{
    $Maintab = $Mainwin->AddTabStrip(
                     -left   => 10,   
                     -top    => 10, 
                     -width  => $Mainwin->ScaleWidth - 20,
                     -height => $Mainwin->ScaleHeight - 50,
                     -name   => "Maintab",
    );

    $Maintab->InsertItem(-text => "Tab1");
    $Maintab->InsertItem(-text => "Tab2");
    $Maintab->InsertItem(-text => "Tab3");
    $Maintab->InsertItem(-text => "Tab4");
    $Maintab->InsertItem(-text => "Tab5");

}