#!/usr/bin/perl

use strict;
use Getopt::Long;

my (%opt);

Getopt::Long::Configure ("bundling");
if (GetOptions(\%opt,
               'digits=i',
               'help|usage|?',
               'quiet',
               'reverse',
               'separator=s',
               'test|n',
               'verbose',
               'zero|0'))
{