#!/usr/bin/perl -w
use strict;

use Tk;

my $MW = new MainWindow();
my $TLi = $MW->Toplevel(); $TLi->state('withdrawn');
my $TLii = $MW->Toplevel(); $TLii->state('withdrawn');

my $Bi = $MW->Button(-text=>"Toplevel 1",-command=>sub{raiselower(1)})->pack();
my $Bii = $MW->Button(-text=>"Toplevel 2",-command=>sub{raiselower(2)})->pack();



MainLoop;

sub raiselower {
        if (@_ == 1) {
                my $state = $TLi->state();
                if ($state eq "withdrawn") {$TLi->state('normal')}
                else {$TLi->state('withdrawn')}
        } elsif (@_ == 2) {
                my $state = $TLii->state();
                if ($state eq "withdrawn") {$TLii->state('normal')}
                else {$TLii->state('withdrawn')}
        }   
}