use strict;

my $log_file = 'c:\daemon.log';
open (LOG, ">$log_file") || die ("cant create $log_file : $!");

for ($i = 5 ; $i > 0 ; $i--) {
  print LOG "daemon running $i\n";
  # print "daemon running $i \n";
  sleep(1);
}
print LOG "thats all folks\n";
close LOG;