#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $var = 20;

my $mw = MainWindow->new();
$mw->geometry( "240x200" );

my $label = $mw->Label(
      -text=>"Subroutine Memory Leak",
      -font=>'arial 14 bold',
      )->pack;

my $label1 = $mw->Label(
      -text=> $var,
      -font=>'arial 14 bold',
      )->pack;

&startloop;
MainLoop;

sub startloop {
   my $iid = $mw->repeat( 150, \&autorefresh) ;
   return;
}

sub autorefresh {
   $var = $var + 20;
   $label1->configure( -text=> $var );
   return;
}