sub getPDF { my $Self = shift; my %Param = @_; $Self->{DBObject}->Prepare( SQL => "SELECT customer_id,date,pdf FROM saved_pdfs WHERE id = '$Param{ID}' LIMIT 0,1" ); my @Row = $Self->{DBObject}->FetchrowArray(); return @Row; }