Select Code to Download

sub CLS
{
...
  $^O =~ m/LINUX/i and return print "\x1Bc\x1B[0m\x1B[3J\x1B[H\x1B[2J"
+;
  print (($^O =~ m/DARWIN/i) ? "\x1B[3J" : ' ' x 4000);
}

C:\>TASKLIST

...
SUCCESS: The process with PID 1540 has been terminated.

C:\>