Select Code to Download

#!/usr/bin/perl

...
    print "date: ",$date1->printf('%g')," ",
          "date2: ",$date2->printf('%g'),"\n";
}

   The same time yesterday with the same offest as today.

...
   the other offset.

   If that doesn't exist, then 24 hours in the past.