Select Code to Download

#!/usr/bin/perl
use warnings;
...
          $widget->yview('end');

}

!/usr/bin/perl

...
        print $i, "\n";
        sleep 1;
    }