open(my $fh, "> $file") or die $!;