Сдвиг времени на Perl

Понадобилось в скрипте сгенерировать дату-время, отличающиеся от текущих на некоторое значение. Стандартная команда date это не умеет, по крайней мере в моём линупсе. Пришлось выкручиваться с помощью перла:

perl -MPOSIX -e 'print strftime("%Y-%m-%d %H:%M:S",localtime(strftime("%s",localtime())-60));'


Ключ -M говорит, что нужно подключить дополнительный модуль, -e выполняет следующие за ним операторы. "%Y-%m-%d %H:%M:%S" - формат вывода времени в формате strftime, -60 задаёт сдвиг времени. В данном случае на выходе получается дата-время на минуту меньше, чем текущее.