Tk::Error: bad option "-background": must be -default, -icon, -message, -parent,
 -title, or -type at C:/Perl/site/lib/Tk.pm line 318.

##</code><code>##

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;


##</code><code>##

bad option "-font": must be -default, -icon, -message, -parent, -title, or -type
 at C:/Perl/site/lib/Tk.pm line 318.