#!/usr/bin/perl -w for($cont=0;$cont<10;$cont++){ system("clear"); print("Contagem: $cont \n"); sleep(1); } _________________________________________________________________ Insta-le agora o Windows Live Messenger http://get.live.com/messenger/overview