Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl
use v5.36;
...
        default    { die "*** BUG: no handler for -$k.\n"; }
    }
}

Select or download this

for my ( $k, $v ) (%opts) {
    if ( $k eq 'h' ) { HELP_MESSAGE(); }
...
    elsif ( $k eq 't') { $table = $v; }
    else  { die "*** BUG: no handler for -$k.\n"; }
}