use strict;
use warnings;

my $filename = 'data.txt';

open DATA, '>', $filename or die "Can't create $filename: $!\n";

print DATA <<STUFF;
Stuff written to disk using file handle DATA
STUFF

close DATA;

open my $inFile, '<', 'data.txt' or die "Can't open $filename: $!\n";
print <$inFile>;
close $inFile;

##</code><code>##

Stuff written to disk using file handle DATA