my $today = `date +%D`; print $today; chomp($today); print $today;