#!/usr/bin/perl
use strict;
use warnings;

use POSIX qw(strftime);

my $today = time;
my $yesterday = $today - 60 * 24 * 60;
my $formatted = strftime "%m/%d/%Y", ( localtime($yesterday) );
print "yesterday = $formatted\n";