`touch $file`

##</code><code>##

{
   open(my $fh, '>', $file) or die "error creating empty '$file': $!";
}