sub update_price
{
        # get reference to hash and algorithm for updating parts.
	my ($price, $price_algo) = @_;

	#TODO lookup return values for eval
	eval $price_algo or
		die( __LINE__ . "Err: $! \n$@\n");

	return $price;
}