Select Code to Download

#!/usr/bin/perl
use DBI;
use strict;
...
    $sth->bind_param($i+2, $fields[$i]) or die "Bind failed: $DBI::err
+str";
}
$sth->execute or die "Execute failed: $DBI::errstr";