Help for this page
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;