open(my $fh, ">>", $myfile) or die "Failed to open $myfile: $!";