Terminal control/Clear the screen

sub clear { print state $ = qx[clear] }
clear;