$ perl -E '$|++; for (1..10) { say "$_/10"; sleep 1 }' | perl gui.pl