my $err = ioctl STDOUT, &TIOCGWINSZ, $winsize;