Select Code to Download

    my $bar = ProgressBar->new( width => 40 );

    $bar->draw( 3, 10 );

    ============                              30%

#!/usr/bin/perl -w

...
do { $pb->draw( $_ )    ; sleep 1 } for 0 .. 10;
do { $pb->draw( 9 - $_ ); sleep 1 } for 0 ..  9;
print "\n";