use Date::Calc qw(Today_and_Now);

my ($year, $month, $day, $hour, $min, $sec) = Today_and_Now();