I have a PERL script that does some search operation and i keep writing stuff to a log file. I have used this pattern in a LOT of PERL scripts but unfortunately, this time it just won't work!!!! it's a very simple PERL statmenet - why won't it work?!!!

#!/usr/bin/perl

use strict;
# use warnings;

use XML::LibXML;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;

use File::Copy;
use File::Glob ':glob';
use Data::Dumper;


my $paramcount = scalar @ARGV;

if ( 0 == $paramcount || $paramcount < 3)
{
    print "Usage: perl hunt.pl <excel sheet> <search folder> <output f
+older>\n\n";
    exit;
}

my $i_sheet        = $ARGV[0];
my $search_folder    = $ARGV[1];
my $out_folder         = $ARGV[2];

# sanity check and preparation....

unless (    -d $search_folder    )
{
    print "Input folder does not exist \n";
    exit;
}

unless (    -f $i_sheet        )
{
    print "Input excel does not exist \n";
    exit;
}

unless (    -d $out_folder        )
{
    print "Out folder does not exist \n";
    exit;
}

# prepare log file...

open( LOG, ">> huntlog.log") || die("Could not open log file!");

print LOG "Log start... \n";
[download]

The last line in this code snippet and any line that starts with "print LOG ..." would not work - the log file gets created but it remains empty forever!!

Any idea why?