use Date::Simple ('today');

my $today = today()->month . '.' . today()->day . '.' . today()->year;