$ perl  compute_price.pl -type sugar -unit 3