Try removing these lines and seeing if it works:

  my $rawdata = my $analysis_object->result;
  
  print "rawdata: $rawdata\n";
[download]