my $year = int(1900 + ($bin_date/365));
print $year."\n";