$ perl -MTime::Local -e'print timelocal(0, 0, 0, 25, 11, 1948),$/'
-663274800
$