-my ($out, $err) = capture {
- my $b = Term::ProgressBar->new(1000000);
- $b->update($_) foreach (0, 1);
-};
-print $out;
- my @lines = grep $_ ne '', split /\r/, $err;
- print Dumper \@lines
+ my $err = capture_stderr {
+ my $tp = Term::ProgressBar->new(1000000);
+ $tp->update($_) foreach (0, 1);
+ };
+
+ my @lines = grep {$_ ne ''} split /\r/, $err;
+ diag explain \@lines