Select Code to Download

dbh->quote # missing $ on $dbh
$sth->fethrow_array() # missing c in fetch

#!/usr/bin/perl
use strict;
...
 <input type="submit" value="Search"/>
</form>
</body></html>';