my $filename = 'somefile';

open HANDLE, '>', $filename
   or die "couldnt open $filename for writing $!";