1 use strict;

     1 use strict;

     2 use Date::Calc qw{Delta_DHMS This_Year};

     6 use Date::Calc qw{Delta_DHMS This_Year};

     3 use DBI;

     7 use DBI;

     4 

     8 

     5 use Getopt::Long;

     9 use Getopt::Long;

     6 

    10