use strict;
use warnings;
use Date::Calc qw(Today Add_Delta_YM Mktime Now);

print Mktime(Add_Delta_YM(Today, 0, -1), Now);