Select Code to Download

sub generate {
  my( $record, $status, $_data ) = @_;
  my %data = %{ $_data };
  ...
}