'trim|length|l=s' => sub {
my ($optname, $optval) = @_;
$optval =~ s/%$// and $opt{trimpct}++;
'trim|length|l=s' => sub {
my ($optname, $optval) = @_;
$optval =~ s/%$// and $opt{trimpct}++;
Defaults on if output is a tty,
disabled otherwise such as when piped or redirected.
Defaults on if output is a tty,
disabled otherwise such as when piped or redirected.