Select Code to Download

use Date::Calc qw( Add_Delta_DHMS Date_to_Days );

...
  if ($diff[0] > 0 || $diff[0] == 0 && $diff[1] >= 0) {
      ...
  }

sub Compare_Vectors {
    my( $x, $y )= @_;
...
    }
    return map $sign*$_, Date::Calc::Delta_YMDHMS( @$x, @$y );
}