I want to develop good product price handling in Perl. I.e. I want to get/set the correct product price based on product number and other required parameters (currency, tax, e.t.c.). It feels like a perfect thing for object oriented programming. Though, it feels like it can be quite complicated, so I'm looking for inspiration.