#!/usr/bin/perl -w
use strict;

open( FH, ">myFile.txt" ) or die( "Oops! : $!\n" );

...code...

close FH;