As noted by Tux in Re^2: Global symbol requires explicit package... I also like the hash switch solution if there are more possibilities than one:

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