diff --git a/Build.PL b/Build.PL
index 912d140..d092cf7 100644
--- a/Build.PL
+++ b/Build.PL
@@ -34,7 +34,6 @@ my $builder = Module::Build->new(
                     'DBI'                                   => '1.608',
                     'Data::Dump'                            => 0,
                     'Data::Rmap'                            => 0,
-                    'Data::UUID'                            => 0,
                     'Data::Validate::IP'                    => 0,
                     'Date::Calc'                            => 0,
                     'Date::Manip'                           => 0,
diff --git a/debian/control b/debian/control
index c0fa34d..5d2470a 100644
--- a/debian/control
+++ b/debian/control
@@ -5,7 +5,6 @@ Maintainer: Sipwise Development Team <support@sipwise.com>
 Rules-Requires-Root: binary-targets
 Build-Depends:
  debhelper-compat (= 13),
- libdata-uuid-perl <!nocheck>,
  libdata-validate-ip-perl <!nocheck>,
  libdate-calc-perl <!nocheck>,
  libdate-manip-perl <!nocheck>,
@@ -23,7 +22,6 @@ Depends:
  libconfig-any-perl,
  libdata-dump-perl,
  libdata-rmap-perl,
- libdata-uuid-perl,
  libdata-validate-ip-perl,
  libdate-calc-perl,
  libdate-manip-perl,
diff --git a/lib/NGCP/BulkProcessor/Utils.pm b/lib/NGCP/BulkProcessor/Utils.pm
index 9a6fe6a..58545b5 100644
--- a/lib/NGCP/BulkProcessor/Utils.pm
+++ b/lib/NGCP/BulkProcessor/Utils.pm
@@ -11,7 +11,6 @@ setlocale(LC_NUMERIC, 'C');
 
 use List::Util qw(max min);
 
-use Data::UUID qw();
 use UUID qw();
 
 use Data::Validate::IP qw(is_ipv4 is_ipv6);
@@ -404,18 +403,11 @@ sub wrap_text {
 }
 
 sub create_guid {
-
-  my $ug = Data::UUID->new();
-  my $uuid = $ug->create();
-  return $ug->to_string( $uuid );
-
+    return uc UUID::uuid();
 }
 
 sub create_uuid {
-    my ($bin, $str);
-    UUID::generate($bin);
-    UUID::unparse($bin, $str);
-    return $str;
+    return UUID::uuid();
 }
 
 sub urlencode {