my $w = $ENV{COLUMNS};

##</code><code>##


export COLUMNS


##</code><code>##


# get current width from environment
    chomp (my $w = `echo \$COLUMNS`);
    if ($w) {
      $width = $w - 5;
    }