my $lim = { linux =>  'clear',
            BASIC =>  'clrscr',
          }->{$^O} || 'cls';