perl -MTime::Local -le'
$s = timelocal 0,0,0,1,0,$ARGV[0]-1900;
print scalar localtime $s + rand timelocal( 0,0,0,1,0,$ARGV[0]-1899 ) 
+- $s;
' 1985
[download]