my $var = "Subroutine Memory Leak";
$mw->Label( -textvariable => \$var )->pack;

sub autorefresh {
    # $var = $var + 20;
    $var += 20;
    return;
}