my $searchresult = search( part     => $part,
			   rev      => $rev,
			   filename => './file.db'		   );

print $searchresult
  ? "Located Part Number: @{$searchresult}[0 .. 7]\n"