my $pkg = @_ ? shift : 'One-time charge';
my $comment = @_ ? shift : '$'. sprintf("%.2f",$amount);
my $taxclass = @_ ? shift : '';
my $pkg = @_ ? shift : 'One-time charge';
my $comment = @_ ? shift : '$'. sprintf("%.2f",$amount);
my $taxclass = @_ ? shift : '';