diff --git a/lib/WebGUI/Asset/Sku/Product.pm b/lib/WebGUI/Asset/Sku/Product.pm
index 9a81a967f..3db3055d5 100644
--- a/lib/WebGUI/Asset/Sku/Product.pm
+++ b/lib/WebGUI/Asset/Sku/Product.pm
@@ -11,7 +11,6 @@ package WebGUI::Asset::Sku::Product;
 #-------------------------------------------------------------------
 
 use strict;
-use Tie::CPHash;
 use Tie::IxHash;
 use WebGUI::HTMLForm;
 use WebGUI::Storage;
@@ -1660,8 +1659,7 @@ sub view {
         my $out = $cache->get( $cacheKey );
         return $out if $out;
     }
-    my (%data, $segment, %var, @featureloop, @benefitloop, @specificationloop, @accessoryloop, @relatedloop);
-    tie %data, 'Tie::CPHash';
+    my ($segment, %var, @featureloop, @benefitloop, @specificationloop, @accessoryloop, @relatedloop);
     my $brochure = $self->get("brochure");
     my $manual   = $self->get("manual");
     my $warranty = $self->get("warranty");
diff --git a/lib/WebGUI/DatabaseLink.pm b/lib/WebGUI/DatabaseLink.pm
index 8e85f5e77..7537058bd 100644
--- a/lib/WebGUI/DatabaseLink.pm
+++ b/lib/WebGUI/DatabaseLink.pm
@@ -16,7 +16,6 @@ package WebGUI::DatabaseLink;
 
 
 use strict;
-use Tie::CPHash;
 use WebGUI::SQL;
 use WebGUI::International;
 use WebGUI::Utility;
@@ -339,7 +338,7 @@ sub new {
 	my $class          = shift;
 	my $session        = shift;
 	my $databaseLinkId = shift;
-	tie my %databaseLink, 'Tie::CPHash';
+	my %databaseLink;
 	unless ($databaseLinkId eq "") {
 		if ($databaseLinkId eq "0") {
 			%databaseLink = (
diff --git a/lib/WebGUI/Operation/ActiveSessions.pm b/lib/WebGUI/Operation/ActiveSessions.pm
index ccdba0104..2000397c4 100644
--- a/lib/WebGUI/Operation/ActiveSessions.pm
+++ b/lib/WebGUI/Operation/ActiveSessions.pm
@@ -15,7 +15,6 @@ use WebGUI::AdminConsole;
 use WebGUI::International;
 use WebGUI::Paginator;
 use WebGUI::SQL;
-use Tie::CPHash;
 
 =head1 NAME
 
diff --git a/lib/WebGUI/Operation/DatabaseLink.pm b/lib/WebGUI/Operation/DatabaseLink.pm
index fd90cfb73..878ea1b38 100644
--- a/lib/WebGUI/Operation/DatabaseLink.pm
+++ b/lib/WebGUI/Operation/DatabaseLink.pm
@@ -11,7 +11,6 @@ package WebGUI::Operation::DatabaseLink;
 #-------------------------------------------------------------------
 
 use strict;
-use Tie::CPHash;
 use WebGUI::AdminConsole;
 use WebGUI::DatabaseLink;
 use WebGUI::Exception;
@@ -157,7 +156,6 @@ sub www_editDatabaseLink {
 	my $session = shift;
         return $session->privilege->insufficient unless canView($session);
         my ($output, %db, $f);
-	tie %db, 'Tie::CPHash';
 	if ($session->form->process("dlid") eq "new") {
 		# Default values are SELECT, DESCRIBE and SHOW
 		$db{allowedKeywords} = "select\ndescribe\nshow";		
diff --git a/lib/WebGUI/Operation/LDAPLink.pm b/lib/WebGUI/Operation/LDAPLink.pm
index 178ccaa00..48c4f895c 100644
--- a/lib/WebGUI/Operation/LDAPLink.pm
+++ b/lib/WebGUI/Operation/LDAPLink.pm
@@ -11,7 +11,6 @@ package WebGUI::Operation::LDAPLink;
 #-------------------------------------------------------------------
 
 use strict;
-use Tie::CPHash;
 use Tie::IxHash;
 use WebGUI::AdminConsole;
 use WebGUI::LDAPLink;
@@ -139,7 +138,6 @@ sub www_copyLDAPLink {
 	my $session = shift;
 	return $session->privilege->insufficient unless canView($session);
 	my (%db);
-	tie %db, 'Tie::CPHash';
 	%db = $session->db->quickHash("select * from ldapLink where ldapLinkId=".$session->db->quote($session->form->process("llid")));
 	$db{ldapLinkId} = "new";
 	$db{ldapLinkName} = "Copy of ".$db{ldapLinkName};
@@ -186,7 +184,6 @@ sub www_editLDAPLink {
     my ($output, %db, $f);
 
 
-    tie %db, 'Tie::CPHash';
     %db = $session->db->quickHash("select * from ldapLink where ldapLinkId=".$session->db->quote($session->form->process("llid")));
    
     my $i18n = WebGUI::International->new($session,"AuthLDAP");
diff --git a/lib/WebGUI/Operation/LoginHistory.pm b/lib/WebGUI/Operation/LoginHistory.pm
index 679af2059..d215dc2da 100644
--- a/lib/WebGUI/Operation/LoginHistory.pm
+++ b/lib/WebGUI/Operation/LoginHistory.pm
@@ -15,7 +15,6 @@ use WebGUI::AdminConsole;
 use WebGUI::International;
 use WebGUI::Paginator;
 use WebGUI::SQL;
-use Tie::CPHash;
 
 =head1 NAME
 
@@ -54,7 +53,6 @@ sub www_viewLoginHistory {
         return $session->privilege->adminOnly() unless canView($session);
 	my ($output, $p, @row, $i, $sth, %data);
 	my $i18n = WebGUI::International->new($session);
-	tie %data, 'Tie::CPHash';
 	$sth = $session->db->read("select * from users,userLoginLog where users.userId=userLoginLog.userId order by userLoginLog.timeStamp desc");	
 	while (%data = $sth->hash) {
 		$data{username} = $i18n->get('unknown user') if ($data{userId} eq "0");
diff --git a/lib/WebGUI/Session/Style.pm b/lib/WebGUI/Session/Style.pm
index 9de68abf8..6bf3980ae 100644
--- a/lib/WebGUI/Session/Style.pm
+++ b/lib/WebGUI/Session/Style.pm
@@ -16,7 +16,6 @@ package WebGUI::Session::Style;
 
 
 use strict;
-use Tie::CPHash;
 use Scalar::Util qw( weaken );
 use WebGUI::International;
 use WebGUI::Macro;
diff --git a/lib/WebGUI/User.pm b/lib/WebGUI/User.pm
index 7e1fcdc95..d459a5cce 100644
--- a/lib/WebGUI/User.pm
+++ b/lib/WebGUI/User.pm
@@ -20,7 +20,6 @@ use WebGUI::Utility;
 use WebGUI::Workflow::Instance;
 use JSON ();
 use WebGUI::ProfileField;
-use Tie::CPHash;
 use Scalar::Util qw( weaken );
 use Net::CIDR::Lite;
 
@@ -1075,7 +1074,6 @@ sub new {
     weaken( $self->{_session} );
     unless ($self->{_userId} && $self->{_user}{username}) {
         my %user;
-        tie %user, 'Tie::CPHash';
         %user = $session->db->quickHash("select * from users where userId=?",[$userId]);
         my %profile 
             = $session->db->quickHash(
diff --git a/sbin/testEnvironment.pl b/sbin/testEnvironment.pl
index c0a4b1158..3535c58ea 100755
--- a/sbin/testEnvironment.pl
+++ b/sbin/testEnvironment.pl
@@ -84,7 +84,6 @@ checkModule("Net::SMTP",                    2.31         );
 checkModule("MIME::Tools",                  5.427        );
 checkModule("Net::POP3",                    2.29         );
 checkModule("Tie::IxHash",                  1.21         );
-checkModule("Tie::CPHash",                  1.04         );
 checkModule("XML::Simple",                  2.18         );
 checkModule("DateTime",                     0.4501       );
 checkModule("Time::HiRes",                  1.9719       );