Hi.

These are largely cosmetic enhancements but you could shorten the lines that look like this:

print "Enter a first name:  " ;
$fname = <STDIN> ;
chomp $fname ;
[download]

to this:

print "Enter a first name: ";
chomp($fname = <STDIN>);
[download]

Also, if a user types "yes", "yep", or some other variation, you might want to alter this line:

if ($ans !~ m/[Yy]/) 
{
  $quit = 1 ;
} 
else 
{
  $quit = 0 ;
}
[download]

to this:

if( $answer =~ /^[Yy]/)
.
.
.
.
[download]

This way, if the input starts with a Y or y, it will be considered valid ( true ). Hope this helps,

-Caitlin