#!/usr/bin/perl
use 5.010 ;

my $i = 5 ; while ($i > 0) {
  say $i-- ; sleep 1;
}

$i=5 ; while ($i > 0) {
  $0="The_coundown_of_doom_$i" ; sleep 1 ; $i-- ;
}