perlでtouch

ファイルを作って時刻を更新する

if(open(my $tmpfh, ">>", '/tmp/hoge.text')){ close($tmpfh); }
utime(undef, undef, "/tmp/hoge.text");

ファイルを作成する - Perl入門ゼミ
perl で touch | 裏表(Phinloda のもう裏だか表だか分からないページ)
Perlの組み込み関数 utime の翻訳 - perldoc.jp

このコードはファイルが 既に存在して いて、ユーザーが 実行しているプログラムに従っているなら、 Unix の touch(1) コマンドと同じ効果があります。

Perlの組み込み関数 utime の翻訳 - perldoc.jp