perl -le 'print $^O =~ /Win32/ ? `clear;who` : `cls;who` and sleep 2 while 1'