#!perl

HELP "<amount>" => "Withdraw or enter price manually";

sub command($self, $cart, $command, @) {
    my $amount = parse_amount($command);
    defined $amount or return NEXT;

    $cart->add(-$amount, "Withdrawal or unlisted product",
        { is_withdrawal => 1 });

    return ACCEPT;
}