-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 ($out, $err) = capture {
+ my $tp = Term::ProgressBar->new(1000000);
+ $tp->update($_) foreach (0, 1);
+ };
+ #print $out;
+
+ my @lines = grep {$_ ne ''} split /\r/, $err;
+ diag explain \@lines