#!/usr/bin/perl --
use strict;
use warnings;
use Tk;
my $two = tkinit(qw/ -title 2 /); ## second in taskbar
my $mw = tkinit(qw/ -title 1 /); ## first in taskbar
$mw->focusForce;
MainLoop;
__END__