perl -MTerm::ReadKey -le 'print join "x",(Term::ReadKey::GetTerminalSize)[0,1]'