use Tk;
my $main=new MainWindow;
$main->title("Test window");
<I print a message "msg" in the window at this line>;
MainLoop;