diff --git a/bin/ngcp-credit-warning b/bin/ngcp-credit-warning
index d907071..1fe99e1 100755
--- a/bin/ngcp-credit-warning
+++ b/bin/ngcp-credit-warning
@@ -114,11 +114,11 @@ sub get_data {
         my $res_hash = $res->as_hash;
         my $data = $res_hash->{_embedded}{'ngcp:'.$link};
         if ('ARRAY' eq ref $data) {
-            unless (&$process_code($data)) {
+            unless ($process_code->($data)) {
                 push(@result,@$data);
             }
         } elsif ($data) {
-            unless (&$process_code([$data])) {
+            unless ($process_code->([ $data ])) {
                 push(@result,$data);
             }
         }
diff --git a/bin/ngcp-fraud-notifier b/bin/ngcp-fraud-notifier
index cdb2a9d..8c6795f 100755
--- a/bin/ngcp-fraud-notifier
+++ b/bin/ngcp-fraud-notifier
@@ -90,7 +90,7 @@ sub get_data {
             push(@result,$data);
         }
         if (defined $code and 'CODE' eq ref $code) {
-            &$code(\@result);
+            $code->(\@result);
             @result = ();
         }
     }