when ( 'h' ) { ... }

[download]
could also be replaced with 
if ( $k eq 'h' ) { ...; next }

[download]

Makes it more tail-heavy than head-heavy.

In this case, this could be cleaned up by using Getopt::Long. 

use Getopt::Long qw( GetOptions );

Getopt::Long::Configure(qw( posix_default ));

GetOptions(
   'help|h|?'  => \&help,
   'verbose|v' => \my $verbose,
   'force|f'   => \my $force,
   'table|t=s' => \my $table,
)
   or usage();

@ARGV == 0
   or usage( "Too many arguments" );

[download]

Sample help and usage: 

use File::Basename qw( basename );

sub help {
   my $prog = basename( $0 );
   print
"Usage:
  $prog [options]
  $prog --help

Options:
  --verbose
  -v
      ...

  --force
  -f
      ...

  --table {table}
  -t {table}
      ...
";
   exit( 0 );
}


sub usage {
   if ( @_ ) {
      my ( $msg ) = @_;
      chomp( $msg );
      say STDERR $msg;
   }

   my $prog = basename( $0 );
   say STDERR "Try '$prog --help' for more information.";
   exit( 1 );
}

[download]

In reply to Re: 'switch' and 'smartmatch' features deprecated in 5.38 by ikegami
in thread 'switch' and 'smartmatch' features deprecated in 5.38 by ibm1620

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.