Select Code to Download

open(my $log_handle, '>>', $filename)
  or die "can't open log file \"$filename\" for appending: $!";

#! /usr/bin/perl
use strict;
...
print $log_handle $string;

close $log_handle; # or let $log_handle fall out of scope