Help for this page

Select Code to Download

Select or download this
```
chomp($DATE=`date +%d%b%y`);
```

Select or download this

my @date = (localtime(time))[3..5];         # Get the date. (18, 6, 10
+0)
++$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