it seems just calling waitVisibility twice instantiates a simple PTk window

#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw=MainWindow->new;

$mw->waitVisibility;
$mw->waitVisibility;
[download]