#! /usr/local/bin/perl

use Time::Local;

my $timestring = timelocal(0,0,0,31,0,2007);
print $timestring,"\n";