Select Code to Download

perl -e 'open my $fh, "|-", q{zenity --title=Working --width=400 --pro
+gress --text="Still going..." --percentage=50 --no-cancel --auto-kill
+ --auto-close}; select $fh; $|=1; select(undef,undef,undef,.1),print 
+$fh "$_\n#Now on $_...\n" for 1..100'

use IO::Handle; # for older perls
use Time::HiRes qw(usleep);
...
        last;
    }
}