#!/usr/bin/perl

use DateTime;

my $today     = DateTime->now->truncate( to => 'day' );
my $yesterday = $today->subtract( days => 1 );

print "Today is $today\nYesterday was $yesterday\n";