use strict;
use warnings;

use Date::Calc qw/Date_to_Text Add_Delta_Days Today/;

print "Yesterday: ", 
      Date_to_Text( Add_Delta_Days( Today(), -1 ) ), 
      "\n";