my %clear_command = ( MSWin32 => 'cls', Linux => 'clear' ... );

system (1, $clear_command{ $^O }  );