use strict;
 use Class::Date;

 my ( $m, $d, $y ) = split( '/', '10/24/2000' );
 my $d = Class::Date->new([ $y, $m, $d ]);
 my $before = $d - '1D';
 print "Day before: $before";