my $lim = ($sys eq 'linux') ? 'clear' : 'cls';