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