HELP "" => "Withdraw or enter price manually"; sub command { my ($self, $cart, $command) = @_; my $amount = parse_amount($command) or return NEXT; $cart->add(undef, -$amount, "Withdrawal or unlisted product"); return ACCEPT; }