Select Code to Download

   use strict;           # of course
   use File::Basename;   # limit the output names
...
           $text =~ s/(\d{3})(?=\d)(?!\d*\.)/$1,/g;
           return scalar reverse $text;
   }

   File Name...: foo_bin-1.2.tar.gz
   File Size...: 1,200,837 bytes (1,173 kb)
...
   Total bytes.: 331,602,269,736
   ...
   Final total bytes: 532,767,443,273

   use strict;
   use LWP::UserAgent;
...
   close PPAL;

   # print $response->content;