http://www.perlmonks.org?node_id=441091


in reply to Re^2: On References to the Unnamed
in thread On References to the Unnamed

Another is in Getopt::Long (example slightly golfed)

GetOptions('in|i=s'  => \my $indir,
           'out|o=s' => \my $outfile,
           'log|l=s' => \my $logfile,
           'cp|c=s'  => \my $cp,
           'help|?'  => \my $help,
           man       => \my $man) or pod2usage(2);

[download]

...it is better to be approximately right than precisely wrong. - Warren Buffet

In Section Meditations