#!/usr/bin/perl

use CGI qw(:standard);

$| = 1;

@vars = qw(loan short rate down years extra xmas per_month smon syear from_cgi);

@args = ();

for $var ( @vars ) {
    if ($val = param($var)) {
	push @args, "$var=$val";
    } 
} 

print header(), start_html("Mortgage Calculation Results");

system '/homes/tchrist/scripts/mort', @args;

print end_html();