Use of Getopt::Long after reading 'perldoc GetOpt::Long'

pk

#!/usr/bin/env perl
use strict;
use warnings;
use autodie;

use feature qw(say);
use open ':std', ':encoding(UTF-8)';

use Getopt::Long;
use Data::Dumper;

my %opt;
my @opt_desc = qw(length|l=i file|f=s verbose|v);

my $getopt = Getopt::Long::Parser->new(
        config => [qw(gnu_getopt no_ignore_case)]
);

if ($getopt->getoptions(\%opt, @opt_desc )) {
        say Dumper({ opt_desc => \@opt_desc, opt => \%opt, argv => \@ARGV});
}