Clear the screen

sub clear { print qx[clear] }
clear;