Perl module File::Touch

use warnings;
use strict;

use File::Touch;

touch ('dont-touch-me');