Perl Tk canvas, window titlebar is overlapped the canvas, overrideredirect(1)

Question

my perl code loks like:

#!/usr/bin/env perl

use strict;
use warnings;
use Tk;

my $mw = Tk::MainWindow->new();

$mw->overrideredirect(1);

my $canvas =