System Functions Perl

use Time::Local;
print timelocal(0, 0, 0, 1, 1, 2000);