use strict;
use warnings;

my $filename1 = "ap\ndd";
my $filename2 = "..\n";

open (OUT, '>', $filename1) or
	die "Error opening file [$filename] for write: $! -- $^E\n";

print OUT "TEST\n\nTEST\n";

close(OUT) or
	die "Error closing file [$filename]: $!\n";