Select Code to Download

perl -MTime::Local=timelocal -e 'print scalar localtime timelocal qw(3
+0 40 2 15 8 2012)';

#!/usr/bin/perl -l

...
print scalar localtime timelocal(
    30, 40, 2, $days_ago, 7, 2012,
);