##
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;
}
####
my %items = parse_input($options{u}, $parts_algo);