#!/usr/bin/perl

use strict;
use warnings;
use Term::ReadLine;

my $term = Term::ReadLine->new();
my @prompts = ( "the starting amount",
                "your current age",
                "the age you want to retire",
                "amount deposited per year",
                "the annual interest rate",
                "expected retirement money" );
my %responses;

for my $prompt ( @prompts ) {
    my $response = '';
    until ( $response =~ /^\d+$/ ) {
        $response = $term->readline( "Enter $prompt: " );
        last unless defined( $response );
        if ( $response =~ /\D/ ) {
            warn "Numeric answers only, please.  Try again.\n";
        }
        elsif ( $prompt eq "the age you want to retire" and
                $response < $responses{"your current age"} ) {
            warn sprintf( "We can't change the past. Give me a number > %d\n",
                          $responses{"your current age"} );
            $response = "";
        }
    }
    $responses{$prompt} = $response if ( defined( $response ));
}

printf "\nThank you for your %d answers\n", scalar keys( %responses );
for ( @prompts ) {
    print "  $_ : $responses{$_}\n" if ( exists( $responses{$_} ));
}