Select Code to Download

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

#!/usr/bin/perl
use warnings;
...
 select(undef,undef,undef,.1);
}