Select Code to Download

print POSIX::strftime('%Y%m%d', localtime),"\n";
my @parts = localtime();
$parts[3] -= 14;
print POSIX::strftime('%Y%m%d', @parts),"\n";

Usage: POSIX::strftime(fmt, sec, min, hour, mday, mon, year, wday = -1
+, yday = -1, isdst = -1)

#!/usr/bin/perl
use strict;
...
use_array           15598/s              --                -35%       
+      -35%
use_math_with_const 24000/s             54%                  --       
+       -0%
use_math            24064/s             54%                  0%       
+        --