#!/usr/bin/perl system ("clear");print <