The File::Touch module can be used to create (touch) files, and to update the last accessed and last modified datetime of a file. You may need to install the File::Touch module on your system. Here is how you would create a new file using File::Touch.

#!/usr/bin/perl
use strict;
use warnings;
use File::Touch;

touch('foo.txt');