Select Code to Download

#!/usr/bin/perl

...
  };

use Data::Dump 'dd'; dd $newhash;

{
  data  => {
...
           },
  total => { fileA => 26, fileB => 12, fileC => 10, fileD => 12, fileE
+ => 3 },
}