my $todayDate = system qq(date)