Select Code to Download

my $sth1 = $dbh->prepare("INSERT INTO dev.blocks (names) VALUES(?)"); 
+     
my $sth3 = $dbh->prepare("INSERT INTO dev.vials (block_id, lt, well_po
+sition, gene, barcode) VALUES(?,?,?,?,?)");
...
  }
  close($fh);
}

unless($well) {
  die "missing value for well in file $file, line $. \n";
}