#!/usr/bin/perl -l

# https://perlmonks.org/?node_id=1230174

use strict;
use warnings;
use Path::Tiny;

my $file = 'tmp.1230174';

sleep 2;
path($file)->spew("$file\n");
sleep 2;

print -M $file;
$^T = time;
print -M $file;