alexm/gist:1732411

## gistfile1.pl
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Getopt::Long;

my %opt = ( 'list'    => sub { say $_[0] } );
GetOptions( 'list=s'  => sub { $opt{ $_[0] }->( $_[1] ) } );
	#!/usr/bin/env perl
	use strict;
	use warnings;
	use 5.010;
	use Getopt::Long;

	my %opt = ( 'list' => sub { say $_[0] } );
	GetOptions( 'list=s' => sub { $opt{ $_[0] }->( $_[1] ) } );