Select Code to Download

use strict;
use warnings;
...
   int(($now % 3600) / 60), int($now % 60));
 $display_field->Append($time);    
}

use strict;
use warnings;
...
 
}
MyApp->new->MainLoop;

use Tk;
use strict; 
...
}

MainLoop;

my $file = "./data"; #text file about the size of 30 MB
    open my $data, '<:encoding(euc-cn)', $file or die "Open failed: $!
+";