Select Code to Download

my $screen = $top -> Label(
    -textvariable => "$number",
...
    -borderwidth => 2,
    -relief => 'sunken',
) -> pack(-pady => 5);

my $screen = $top -> Label(
    -text => \$number,
...
    -borderwidth => 2,
    -relief => 'sunken',
) -> pack(-pady => 5);