Select Code to Download

#!usr/bin/perl -w
use strict;
...
today as epoch time: 1252088732
today:     Fri Sep  4 11:25:32 2009
yesterday: Thu Sep  3 11:25:32 2009

#!/usr/bin/perl -w
use strict;
...
$a =~ s/^(\d)$/0$1/;

print $a;