Select Code to Download

# OK, I'm a bit of a Standards freak, but you get my point =)
print "<select name='reason'>\n";
...
    }
    print "$option</option>\n";
}

my @options = ();
while (<DATA>) {
...
Deposits
PPV Dispute
...