#!/usr/bin/env perl

use v5.36;     # was 'use 5.010;'
#use warnings; # unnecessary now!
use strict;
no if $] >= 5.018, warnings => "experimental::smartmatch";
use Getopt::Std;
my %opts;
getopts( 'hvi:', \%opts ) or die "getopts failed\n";
my $verbose;
my $infile;
while ( my ( $k, $v ) = each %opts ) {
    given ($k) {                # <-- line 13
        when ('h') { ...; }
        when ('v') { ++$verbose; }
        when ('i') { $infile = $v; }
        default { die "*** BUG: no handler for -$k.\n"; }
    }
}