die "Not enough of " .$prod->{title}."\n" if $prod->{quantity} > $stock;
$db{$$}->update(products => {stock => $stock - $prod->{quantity}}, {product => $prod->{product}});
}
die "Not enough of " .$prod->{title}."\n" if $prod->{quantity} > $stock;
$db{$$}->update(products => {stock => $stock - $prod->{quantity}}, {product => $prod->{product}});
}