#!/usr/bin/perl-w
use strict;
use Win32;

system ("cls");