Thanks Merlyn I'm not sure I understand why I'm printing the 1 from the previous print statement but changing the code to

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

Works fine. Thank you for your help.