A short remark, you suggest to

populate an array (@infile) with the lines from the log file.

This is absolutely not necessary in this case, it's just a waste of memory. Why not do it like this:

open(LOG,'<','logfile') or die "Couldn't open logfile: $!";
while (<LOG>) {
  # do something
}
close LOG;
[download]

-- Hofmator