#!/usr/bin/perl

use strict;
use warnings;

use lib '../blib/lib';

use Finance::Amortization;
use HTML::Table;

# this program generates a 30 year amortization table on a $200,000
# loan at 7%

my $am = Finance::Amortization->new(principal => 200000, rate => .07,
	 periods => 30*12, compounding => 12, precision => 2);


#balance, interest, payment

my @cols = qw(Period Payment Interest Principal Balance);

my $table = HTML::Table->new(0, 5);

$table->addRow(@cols);
$table->setRowHead(1);

my $pmt = $am->payment;

for(1 .. 30*12) {
	my ($int, $bal) = ($am->interest($_),$am->balance($_));
	$table->addRow($_, $pmt, $int, $pmt-$int, $bal);
}

$table->print;