Select Code to Download

sub _insert_to_db {
  my $self = shift;
...
         croak "Failed to insert $sql: \n $@";
   }
}

     open(local *IN, '<', "file.pdf");
     $self->{'data'} = do {local $/, <IN>};
     close IN;