use Win32::GUI;

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

$Maintab = $Mainwin->AddTabStrip(
                                -left   => 10,   
                                -top    => 10, 
                                -width  => $Mainwin->ScaleWidth - 105,
                                -height => 175,
                                -name   => "Maintab",
);

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








Win32::GUI::Dialog();

sub Mainwin_Terminate {
   return -1;
}