use strict;
use warnings;
use Tk;
   
my $mw=new MainWindow;

my $arial_font = $mw->fontCreate('normal_font',
                            -family => "Arial Unicode MS",
                            -size => "15", # point
                            );

my $mess .= "\nAre these two customers the same?";

my $response = $mw -> messageBox(
#                           -font    => 'normal_font',
                           -title   => "Duplicate customer codes detected",
                           -message => $mess,
                           -type    => 'yesno');

MainLoop;