{
	open my $fh, '>', 'filename.ext';
	print $fh 'foo';
	close $fh;
};

{
	open my $fh, '<', 'filename.ext';
	while (<$fh>) {
		# $_
	};
	close $fh;
};