$ perl -Mstrict -MTk -w
my $mw = tkinit;
my $tl = $mw->Toplevel;
$tl->geometry('=1x1+0+0');
$tl->withdraw;

$mw->bind('<Control-Shift-Key-M>' => sub {
    $mw->iconify;
    $tl->deiconify;
});
$tl->bind('<Control-Shift-Key-T>' => sub {
    $mw->deiconify;
    $tl->withdraw;
});

MainLoop;