Select Code to Download

#!/usr/local/bin/perl
use CGI qw/:all/;

  print "
  </select>
...
  </body>
  </html>
  ";

## yes, the naming convention sucks, but hey, you didn't program it, I
+ did

...

## well genius, you probably figured that since they have not entered 
+anything, that we need to ask them for something
## I should not have to explain the following to you cause if I did, y
+ou should not be programming - moron.

if ($file1[0] eq $dealerno)
{
...
  @file2[$cnts++] = $file1[9];
  @file2[$cnts++] = $file1[10];
}

$_ = $phone;
substr($_,3,0) = "/";
substr($_,7,0) = "-";
$phone = $_;

$dealer1 = chop ($city);
$dealer2 = chop ($city);
...
$dealer4 = chop ($city);
$dealer5 = chop ($city);
$dealercode = $dealer5 . $dealer4 . $dealer3 . $dealer2 . $dealer1;