Select Code to Download

my $out = DBIx::Dump->new('format' => $format_pass, ...

if ($format_pass eq "csv") {$filename_pass.=csv;}else {$filename_pass.
+=xls;}
if (!$filename_pass) {$filename_pass=query.csv;}

<select type="option" name="format"><option>csv<option>xls</select>