Select Code to Download

#!/usr/bin/env perl
use strict;
use warnings;
...
(...)
my $db = DBI->connect("DBI:mysql:database=<censored>;host=localhost;po
+rt=3306", "<censored>", "<censored>");
my $update = $db->prepare($updateStatement) or die ($DBI::errstr);