--- /dev/null
+#!/usr/bin/perl\r
+use strict;\r
+use warnings;\r
+\r
+use Term::ProgressBar 2.00;\r
+\r
+my $max = shift || 100;\r
+\r
+my $progress = Term::ProgressBar->new($max);\r
+\r
+for (0..$max) {\r
+ my $is_power = 0;\r
+ for(my $i = 0; 2**$i <= $_; $i++) {\r
+ $is_power = 1\r
+ if 2**$i == $_;\r
+ }\r
+\r
+ $progress->update($_)\r
+}\r