in reply to Clearing Screen

exec(cls);
system(cls);

[download]

In Section Seekers of Perl Wisdom