Select Code to Download

#!/usr/bin/perl
use warnings;
...
open(CHILD, "ls -la |") or die "Can't open: $!";
}

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

#!/usr/bin/perl
$|++;
...
        sleep 1;
    }