\n";
if ($imageError) {
my @vars = sort(keys(%ENV));
#foreach(@vars) {
# $ENV{$_} ||= qq~›~;
#print qq~
#
# $of\$ENV{$_}$cf
# $of$ENV{$_}$cf
#
#~;
#}
print STDOUT " Upload Error: $returned\n";
}
print STDOUT "Email Address: $client_email\n";
print STDOUT "Your Name: $client_name\n";
print STDOUT "Your Phone: $client_phone\n";
print STDOUT "___________________________________________________________________________\n";
if ( length($tell) > 1 ) {
print STDOUT "Please tell us a little about your home and family (including number of children and ages at home). \n";
print STDOUT "$tell\n";
print STDOUT "___________________________________________________________________________\n";
}
if ( length($owned) > 1 ) {
print STDOUT "Have you owned a dog/Brittany (raised a puppy)? \n";
print STDOUT "$owned\n";
print STDOUT "___________________________________________________________________________\n";
}
if ( length($lookingfor) > 1 ) {
print STDOUT "What are you looking for in a Brittany? \n";
print STDOUT "$lookingfor\n";
print STDOUT "___________________________________________________________________________\n";
}
if ( length($how) > 1 ) {
print STDOUT "If you are looking for a hunting dog, how often do you hunt?
Will you be using a professional trainer? \n";
print STDOUT "$how\n";
print STDOUT "___________________________________________________________________________\n";
}
if ( length($fenced) > 1 ) {
print STDOUT "Do you have a fenced in yard? \n";
print STDOUT "$fenced\n";
print STDOUT "___________________________________________________________________________\n";
}
if ( length($sex) > 1 ) {
print STDOUT "Are you looking for a male or female, or open to either? \n";
print STDOUT "$sex\n";
print STDOUT "___________________________________________________________________________\n";
}
if ( length($house) > 1 ) {
print STDOUT "Where will this puppy/dog live? Where will it stay when you are not home? \n";
print STDOUT "$house\n";
print STDOUT "___________________________________________________________________________\n";
}
if ( length($out) > 1 ) {
print STDOUT "Will there be someone home during the day to take the puppy out? \n";
print STDOUT "$out\n";
print STDOUT "___________________________________________________________________________\n";
}
if ( length($comp) > 1 ) {
print STDOUT "Do you have any interest in competing with your dog
(ie. conformation shows, hunt tests, field trials, agility,
obedience, rally, lure coursing, barn hunt, etc)? \n";
print STDOUT "$comp\n";
print STDOUT "___________________________________________________________________________\n";
}
if ( length($comments) > 1 ) {
print STDOUT "Additional Comments:\n";
print STDOUT "$comments\n";
}
print STDOUT "\n";
print STDOUT "