Select Code to Download

 while (1)
        {
...
        else 
        {
            foreach(@pending)

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

#!/usr/bin/perl
# tktail pathname
...
exit;
}