Select Code to Download

#!/usr/bin/perl
use strict;
...
qx(cat /etc/termcap); #simulate doing important stuff 
spin();
}

$progressindicator->start;
$progressindicator->stop;

#!/usr/bin/perl

...
       $char x (($width-1)*$got/$total). '>', $got, $total, 100*$got/$
+total;
}