Help for this page
#!/usr/bin/perl use warnings; ... $widget->yview('end'); }
!/usr/bin/perl ... print $i, "\n"; sleep 1; }