for($num=5;$num>0;$num--){
        print "$num\n";
        sleep 2;
        }