#Take Current System Date And Add Two Weeks On For Trial
use constant WEEK => 60 * 60 * 24 * 7 ;
my @later = localtime( time + ( WEEK * 2 ) ) ;
my $expiry_date = sprintf "%04d-%02d-%02d",
                 $later[5] + 1900,
                 $later[4],
                 $later[3] ;