Select Code to Download

#!/usr/bin/perl
use warnings;
...
   sprintf "|%-${width}s| Got %${num_width}s bytes of %s (%.2f%%)\r",
       $char x (($width-1)*$got/$total). '>', $got, $total, 100*$got/$
+total;
}

#!/usr/bin/perl
use warnings;
...
        
        });
MainLoop;