RosettaCodeData/Task/Command-line-arguments/Perl/command-line-arguments-2.pl

use Getopt::Long;
GetOptions (
    'help|h'     => \my $help,
    'verbose|v'  => \my $verbose,
);