Bank::RMD - Perl extension for calculating the RMD for IRAs.
use warnings; use strict; use Bank::RMD;
# Using OO
my $calc = new Bank::RMD; my $rmd = $calc->calculate( ownerAge => 75, balance => 500000 ); # Will use universal table; .. OR ..
my $rmd = $calc->calculate( ownerAge => 79, beneficiaryAge => 65, balance => 500000 ); # Will use joint table because beneficiary is > 10 years younger.
print $rmd->divisor; # Will show the divisor used print $rmd->rmd; # Will show the RMD calculated.
After retirement age, the IRS requires IRA owners to begin taking a minimum distribution. Called the Required Minimum Distribution, this table is big and cumbersome to calculate on your own.
IRS Publication 590 (2005) Individual Retirement Arrange,ents (IRAs) URL: http://www.irs.gov/publications/p590/index.html
Tyler Hardison, <thardison@bayfed.com>
Copyright (C) 2006 by Tyler Hardison
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.