use Time::Local;

my ($sec,$min,$hour,$mday,$mon,$year) = (0,1,2,3,4,105);

my $t = timelocal($sec,$min,$hour,$mday,$mon,$year);

($sec,$min,$hour,$mday,$mon,$year) = localtime($t);

print "$sec,$min,$hour,$mday,$mon,$year\n";  # 0,1,2,3,4,105