Mastering Perl/Tk: Graphical User Interfaces in Perl
Stephen Lidie
... chomp( $_ = <$ns> ); my $mw = MainWindow->new; $mw->withdraw; $mw->
bell; $mw->repeat(15 * 1000 => sub {$mw->bell}); my $reply = $mw->
messageBox( -icon => 'info', -type => 'OKCancel', -message ...