Select Code to Download

#!/usr/bin/perl

...
    }
    $i++;
}

open my $log_report, '>>', $log_file
  or die "Can't open the file $log_file: $!";