Select Code to Download

#!/usr/bin/perl
use Tk;
...
    $hl->itemCreate($path,2,-text=> $hash->{$user}->{$location}->{phon
+e});

}

$$ ./1020153.pl
Inside read file 
...
 [repeat,[{},after#13,5000,repeat,[\&main::clear_data]]]
 ("after" script)
^C

Inside read file 
usa 22 201
...
clear_data usa
Inside refreshdata 1 | usa 
XS_Tk__Callback_Call error:Entry "1" not found at /usr/lib/perl5/site_
+perl/5.14.1/x86_64-linux-thread-multi/Tk.pm line 251.