use strict;
use warnings;
use Tk;
my $msg ='MainWindow'->new->messageBox(
        -icon    => 'info',
        -title   => 'MSG',
        -message => '| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |',
    );
MainLoop();