Select Code to Download

use strict;
use Date::Calc qw(Date_to_Time Time_to_Date);
...
    my @date = Time_to_Date([$time]);
    print join(",",@date),"\n";
}

C:> perl date.pl
1970,6,10,23,54,16
...
1971,4,5,20,30,40
1971,4,5,20,32,40
1971,4,5,20,27,4