Select Code to Download

Initialising...\n
Progress: 0%\r
Progress: 1%\r
Progress: 2%\r
Progress: 3%\r

sub io_cb {
  my $fh = shift;
...
  my $line = <$fh>; # blocks until there is a \r
  # update progress bar with $line
}