my $sys = $^O;
my $lim;
if ($sys eq "linux") { 
     $lim="clear";
} else {
     $lim="cls";
}
# ...