open(my $Progress, '|-', 'zenity --title "Explore" --progress --percentage 0 ' .
                         '--text "Just a dumb test" --auto-close --auto-kill') or
                                      die "**Fatal err, open pipe write failed";
#open(my $Progress, '|-', 'cat -n - >zippy.txt') or
#                                      die "**Fatal err, open pipe write failed";
sleep 2;

foreach my $Percent ( qw{10 20 30 40 50 60 70 80 90 100} ) {
  print "DBG> ", $Percent, "\n";
#  print $Progress sprintf("%3d\n", $Percent);
  print $Progress "$Percent\n";
  sleep 2;
  print $Progress "# Retry $Percent\n";
  }

close($Progress);