#!/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);