Help for this page
copy "file1", $fh
if (true) { open (my $fh, ">> RESULT_LOG"); ... close BATTERY; } else {print "Error"}