my $w = $ENV{COLUMNS};