Actually, I believe it is possible with Getopt::Long. Take a look at the bundling option.

Update: Oh, and of course it helps to use the 'name|n' for defining the short form, since it's not done automatically. :)

bbfu
Black flowers blossum
Fearless on my breath