Вы можете использовать библиотеку Perl, такую как DateTime , чтобы сделать это довольно легко.
Например, следующий код создает новую дату, которую я вычтя через 15 дней с сегодняшнего дня, а затем вызывает функцию эпохи:
use DateTime;
my $dt = DateTime->now
->subtract(days => 15)
->set_hour(0)
->set_minute(0)
->set_second(0);
print $dt->epoch(),"\n";