The problem is that both the notebook and the status bar are both set to expand, thus split up the area. Try

my $statusBar = $mw->Frame(-relief=>"raised", -borderwidth=>2)->pack(-
+fill=>'x', -side=>'bottom', -anchor=>'s');
[download]