Select Code to Download

use Path::Tiny;
my %name2blob;
...
  $name2blob{$filename}{STS} = path ($data)->slurp;
  close $data;
}

  do { local $/;  <$data> }