Select Code to Download

#!/usr/bin/perl
use Tk;
...
             $hlist->itemCreate($_, 1, -text=>"$_"x10);
           }
MainLoop;