diff --git a/Build.PL b/Build.PL
index f112fe3c..865cfd7b 100644
--- a/Build.PL
+++ b/Build.PL
@@ -18,7 +18,7 @@ my $builder = Module::Build->new(
         'Pod::Usage'                  => 0,
         'Regexp::Common'              => 0,
         'Regexp::IPv6'                => 0,
-        'Sipwise::Base'               => 0,
+        'Sipwise::Base'               => '1.002',
         'Throwable::Error'            => 0,
         'XML::Simple'                 => 0,
     },
diff --git a/bin/ngcp-dump-schema b/bin/ngcp-dump-schema
index ac4c7ffb..e8cfb4e1 100644
--- a/bin/ngcp-dump-schema
+++ b/bin/ngcp-dump-schema
@@ -63,7 +63,7 @@ for my $db (qw(accounting billing carrier kamailio ngcp provisioning sipstats))
                 @pod = ("=encoding UTF-8\n\n", @pod, "=cut\n") if @pod;
                 return join '', @source, @pod;
             },
-            moniker_map => λ{ $_[0] },
+            moniker_map => sub { $_[0] },
             col_accessor_map => sub {
                 my ($column) = @_;
                 return $CLASS->can($column) ? "column_$column" : $column;
diff --git a/lib/NGCP/Schema/billing.pm b/lib/NGCP/Schema/billing.pm
index ea476f08..6dbd2baa 100644
--- a/lib/NGCP/Schema/billing.pm
+++ b/lib/NGCP/Schema/billing.pm
@@ -104,7 +104,7 @@ method create_domain($data, $reseller_id?) {
         message => "malformed domain '$data->{domain}' in request",
     }) unless $self->validator->check_domain({domain => $data->{domain}});
 # /FIXME
-    $self->txn_do(λ{
+    $self->txn_do(sub {
         # just to verify the domain does not exist for the reseller
         my $dbdom;
         try {
@@ -169,7 +169,7 @@ method delete_domain($data, $reseller_id) {
         description => 'Client.Syntax.MalformedDomain',
         message => "malformed domain '$data->{domain}' in request",
     }) unless $self->validator->check_domain({domain => $data->{domain}});
-    $self->txn_do(λ{
+    $self->txn_do(sub {
         my $remaining_resellers = $self->delete_domain($reseller_id, $data->{domain});
         unless ($remaining_resellers) {
             # just to verify the domain exists
@@ -218,7 +218,7 @@ method delete_domain($data, $reseller_id) {
                     message => 'reseller_id empty in domain delete, still we have a persisting domain reseller.',
                 }) unless $reseller_id;
                 # Oooops! Breaks data encapsulation heinously! :o/
-                $self->storage->dbh_do(λ{
+                $self->storage->dbh_do(sub {
                     my (undef, $dbh, @bind) = @_;
                     $dbh->do(
                         'DELETE FROM provisioning.pvs
diff --git a/lib/NGCP/Schema/provisioning.pm b/lib/NGCP/Schema/provisioning.pm
index 331b50a0..737ce278 100644
--- a/lib/NGCP/Schema/provisioning.pm
+++ b/lib/NGCP/Schema/provisioning.pm
@@ -52,7 +52,7 @@ method create_domain($data) {
     }) unless $self->validator->check_domain({domain => $data->{domain}});
 # /FIXME
 
-    $self->txn_do(λ{
+    $self->txn_do(sub {
         # FIXME ack-basswards exception check: abused for control flow
         eval {
             $self->_get_domain_id($data->{domain});
@@ -88,7 +88,7 @@ method update_domain($data) {
         description => 'Client.Syntax.MalformedDomain',
         message => "malformed domain '$data->{domain}' in request",
     }) unless $self->validator->check_domain({domain => $data->{domain}});
-    $self->txn_do(λ{
+    $self->txn_do(sub {
         my $domainid = $self->_get_domain_id($data->{domain});
     });
     return;
@@ -103,7 +103,7 @@ method delete_domain($data) {
         description => 'Client.Syntax.MalformedDomain',
         message => "malformed domain '$data->{domain}' in request",
     }) unless $self->validator->check_domain({domain => $data->{domain}});
-    $self->txn_do(λ{
+    $self->txn_do(sub {
         my $domainid = $self->_get_domain_id($data->{domain});
         $self->resultset('voip_domains')->search(
             {},