Select Code to Download

my $dt = DateTime->now(time_zone => 'Local');

$day_of_year = $dt->doy;
$week_of_year = $dt->week_number;

$century = int($dt->year / 100)+1;
$millennium = int($dt->year / 1000)+1;

my $utc_dt = DateTime->now(time_zone => 'UTC');
$difference = $utc_dt - $dt;

$string = '2005-10-08T08:42';
$parser = DateTime::Format::ISO8601;
...
$parsed_dt = $parser->parse_datetime( $string );

$epoch_seconds = $parsed_dt->epoch;

$julian_day = $dt->jd;

$modified_julian_day = $dt->mjd;

$yesterdays_date = $dt->clone();
$yesterdays_date->subtract( days => 1 );