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