#!/usr/bin/perl use CGI qw(param); my $contact = param("cnt"); if (not defined $contact) {$contact = ""; } my $phone = param("ph"); if (not defined $phone) {$phone = ""; } my $address = param("adr"); if (not defined $address) {$address = ""; } my $apt = param("ap"); if (not defined $apt) {$apt = ""; } my $city = param("cty"); if (not defined $city) {$city = ""; } my $zip = param("z"); if (not defined $zip) {$zip = ""; } my $baths = param("bth"); if (not defined $baths) {$baths = "0"; } my $stove = param("stv"); if (not defined $stove) {$stove = "???"; } my $refrig = param("ref"); if (not defined $refrig) {$refrig = "???"; } my $DW = param("dw"); if (not defined $DW) {$DW = "???"; } my $DR = param("dr"); if (not defined $DR) {$DR = "??????"; } my $park = param("prk"); if (not defined $park) {$park = "0"; } my $heat = param("ht"); if (not defined $heat) {$heat = "???"; } my $cook = param("ck"); if (not defined $cook) {$cook = "???"; } my $lndry = param("l"); if (not defined $lndry) {$lndry = "???"; } my $dryer = param("dry"); if (not defined $dryer) {$dryer = "???"; } my $gas = param("g"); if (not defined $gas) {$gas = "???"; } my $elec = param("e"); if (not defined $elec) {$elec = "???"; } my $water = param("hoo"); if (not defined $water) {$water = "???"; } my $trash = param("trsh"); if (not defined $trash) {$trash = "???"; } my $credit = param("crdt"); if (not defined $credit) {$credit = "???"; } my $rent = param("r"); if (not defined $rent) {$rent = ""; } my $dep = param("dpt"); if (not defined $dep) {$dep = ""; } print < Apatrment Questionare

Apartment Questionare

Help us choose the best apartment!

Contact Name:		Contact Phone:
Apartment Address:		Apt:
City:		Zip:
Baths:		Dining Room:
Kitchen Includes: Stove: EndHTML3 if ($refrig eq "???") { print <???
Parking:
Heat:	Cooking:	Laundry Hookup:	Dryer:
Utilities Included: Gas: EndHTML11 if ($elec eq "???") { print <???
Rent: \$	Deposit: \$	Credit Check:
Additional Comments:

EndAll