my $expected_version = "1.643";
print("import: DBI\n");
use DBI;

if (defined DBI->VERSION) {
	my $given_version = DBI->VERSION;
	$given_version =~ s/0+$//;
	die('Expected version ' . $expected_version . ' but found ' . $given_version) unless ($expected_version eq $given_version);
	print('	using version ' . DBI->VERSION . '
');

}