Non resizable window

[Anonymous Monk]

Hi dear monks, In the following code snippet there are 2 malfunctions: 1. The window is resizable when it shouldn't be. 2. __END__ is loaded as a button - shouldn't perl identify it and not load it? Thanks

#!/usr/local/bin/perl -w
use strict;
use Tk;
require Tk::Pane;
require Tk::BrowseEntry;
require Tk::DialogBox;
use warnings;
use strict;
use Tk;



my $MW = MainWindow->new(
    -title      => 'GUI Demo',
    -name       => 'Demo',
);

$MW->resizable(0,0); # not resizable in any direction

foreach my $txt (<DATA>) {
    chomp($txt);
    my $b = $MW->Button(
            -text    => $txt,
            -width   => 30,
            -height  => 3,
            -command => sub {manipulate_link($txt)},
        );
    $b->pack(qw/-side top -expand yes -pady 3/);
}

MainLoop;

__DATA__
Compile all
Compile selected blocks
Get selected blocks
Put selected blocks
Browse & Compare
Exit
__END__