$ touch 1
$ sleep 2
$ perl -wE '
    say 24 * 60 * 60 * -M "1";
    sleep 2;
    say time - $^T + 24 * 60 * 60 * -M "1";
'
2
4