Select Code to Download

use File::Spec::Functions;
...
open STDOUT, '>>', catfile( $log_dir, $log_file )
  or die "Can't open $log_file - $!\n";