#!/usr/bin/env perl
use strict;
use warnings;

open(my $ofh, '>', 'outfile.txt') or die($!);
while((my $line = <DATA>)) {
    print $ofh $line;
}
close($ofh);

__DATA__
Line 1
Line 2
Line 3
Line 4

##</code><code>##

#!/usr/bin/env perl
use strict;
use warnings;

open(my $ofh, '>', 'outfile.txt') or die($!);
print $ofh <<ENDFILE;
Line 1
Line 2
Line 3
Line 4
ENDFILE
close($ofh);