'width|w=i',
'usage|h' => sub { podexit() },
'help' => sub { podexit(-verbose => 2) },
) or exit 64; # EX_USAGE
$opt{width} ||= $ENV{COLUMNS} || 80;
'width|w=i',
'usage|h' => sub { podexit() },
'help' => sub { podexit(-verbose => 2) },
) or exit 64; # EX_USAGE
$opt{width} ||= $ENV{COLUMNS} || 80;