Thanks! Try this instead

#!/usr/bin/perl -w
use strict;
use Tk;

my $mw = MainWindow -> new;
   
$mw -> title("my tk example");

my %nl = (); # newline
$mw ->Label(%nl)->pack;

my %nl2 = (); # newline
$mw ->Label(%nl2)->pack;

my %nl3 = (); # newline
$mw ->Label(%nl3)->pack;

my %text = ('-text',"Reminder, Don't forget to use strict!");
$mw ->Label(%text)->pack;

# -ipadx = width
# -ipady = height
my $dialog_box = $mw -> Label()-> pack(-side => 'top', -ipadx => '120'
+, -ipady => '25');
$mw -> Button(-text => "Close ", -command => sub { &exit })-> pack (-s
+ide => 'bottom');

MainLoop;
[download]