#!/usr/bin/perl -w
use strict;
use warnings;

my ($s,$m,$h,$dy,$mo,$yr,$t1,$t2,$t3) = localtime;

$mo++;
$yr += 1900;

foreach my $element ($s,$m,$h,$dy,$mo){
  $element = '0' . $element if(length($element) < 2);
  print $element, "\n";
}

print <<EndOfString;
$yr-$mo-$dy $h:$m
EndOfString

##</code><code>##

49
54
14
26
05
2009-05-26 14:54