Actually you can usually just cache the output from qx/clear/ (or qx/tput clear/) and use that. Or use Term::Cap and avoid calling anything external at all.