Help for this page

Select Code to Download


  1. or download this
    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'
    
  2. or download this
    use IO::Handle; # for older perls
    use Time::HiRes qw(usleep);
    ...
            last;
        }
    }