use strict;
use warnings;
use Win32::GUI;

use vars qw ($alignment_sx $alignment_cn $alignment_dx);
($alignment_sx,$alignment_cn,$alignment_dx)=(0,1,0);

my $Menu = Win32::GUI::MakeMenu(
    "&File"    => "File",
      "    > &Choose alignment" => "choose_alignment",
      "    > > &Left"    => {-name=>"left",   -checked => $alignment_s
+x},
      "    > > &Center"  => {-name=>"center", -checked => $alignment_c
+n},
      "    > > &Right"   => {-name=>"right",  -checked => $alignment_d
+x},
    ">  &Exit" => "File_Exit",
);

my $win = new Win32::GUI::Window(
    -name   => "Window",
    -text   => "Sub menu",
    -width  => 640,
    -height => 480, 
    -menu   => $Menu,
    -minsize => [640, 480],
);

$win->Show();

Win32::GUI::Dialog();

sub File_Exit_Click {

    return -1
}

sub left_Click {

    ($alignment_sx,$alignment_cn,$alignment_dx)=(1,0,0);
    Set_Menu();
}

sub center_Click {

    ($alignment_sx,$alignment_cn,$alignment_dx)=(0,1,0);
    Set_Menu();
}

sub right_Click {

    ($alignment_sx,$alignment_cn,$alignment_dx)=(0,0,1);
    Set_Menu();
}

sub Set_Menu {

    $Menu->{left}->Checked($alignment_sx);
    $Menu->{center}->Checked($alignment_cn);
    $Menu->{right}->Checked($alignment_dx);
}
[download]