my $dbh = DBI->connect('Blah', 'Blah', 'Blah', 'Blah');
$dbh->{LongReadLen} = 65535;
my $stmt = $dbh->prepare(" UPDATE Images SET Name = ?" );
for my $file (@JpgList){
 my $rv;
 $rv = $stmt->execute or die $stmt->errstr;
 $stmt->execute($file);
 rename("$_","Processed/$_");
}
$stmt->finish;
$dbh->disconnect;