my @date = (localtime(time))[3..5];         # Get the date. (18, 6, 100)
++$date[1] and $date[2] += 1900;            # Make it reader friendly
for( @date[0..1] ){ $_ = "0$_" if 10 > $_ } # Add 0 prefixes as needed.
my $DATE = join '', @date;                  # now 18072000