#!/usr/bin/perl -w


print infofecha() . "\n";

exit 0;



sub infofecha{
#    my $i = shift;
    my $i = scalar localtime();
    my @datetime = split " ", $i;
	  	          
    my $anyo = $datetime[4];
    #    if ($anyo<66) { $anyo += 2000; }
    #    elsif ($anyo<100) { $anyo += 1900; }
    my %mes = (
	Jan => "01",
	Feb => "02",
	Mar => "03",
	Apr => "04",
	May => "05",
        Jun => "06",
	Jul => "07",
	Aug => "08",
	Sep => "09",
	Oct => "10",
	Nov => "11",
	Dec => "12",
    );
							            
    my $nmes = $mes{ $datetime[1] };
    
    my $dia = sprintf "%02d", $datetime[2];
    return $anyo  . $nmes   . $dia;
}