my $tt = 1273120423;
my $string = join '.',map {(length $_ == 1 ? '0' . $_ : $_)} reverse ((Localtime ($tt))[0..2]);
print "String: $string\n";