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

##</code><code>##

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

##</code><code>##

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


##</code><code>##


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