my @datetime = ((localtime)[0,1,2,3,4,5]);

foreach(@datetime) {
    if($count == 4) {
        $_ += 1
    }
    elsif($count == 5) {
        $_ += 1900
    }
    if(length $_ == 1) {
        $_ = "0$_";
    }
    $count++;    
}
my($sec,$min,$hour,$day,$month,$year) = @datetime;