perl -e 'open my $fh, "|-", q{zenity --title=Working --width=400 --progress --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'