my $fh = IO::File->new( '>', $someFile )
    or die "Cannot open '$someFile': $!\n";