diff --git a/lib/NGCP/Panel/Utils/DbStrings.pm b/lib/NGCP/Panel/Utils/DbStrings.pm
index f92e37b5a0..b620a94e06 100644
--- a/lib/NGCP/Panel/Utils/DbStrings.pm
+++ b/lib/NGCP/Panel/Utils/DbStrings.pm
@@ -4,6 +4,7 @@ use warnings;
 use strict;
 
 sub localize {
+    my $c;
 
     $c->loc('Lock Level');
     $c->loc('See "lock_voip_account_subscriber" for a list of possible values. A lock value of "none" will not be returned to the caller. Read-only setting.');
@@ -195,6 +196,7 @@ sub localize {
 }
 
 sub form_strings {
+    my $c;
 
     #NGCP::Panel::Form::BillingFee
     #NGCP::Panel::Form::BillingFeeUpload
diff --git a/lib/NGCP/Panel/Utils/IntervalTree/Node.pm b/lib/NGCP/Panel/Utils/IntervalTree/Node.pm
index 6789248ef9..8e523fe349 100644
--- a/lib/NGCP/Panel/Utils/IntervalTree/Node.pm
+++ b/lib/NGCP/Panel/Utils/IntervalTree/Node.pm
@@ -3,6 +3,7 @@ package NGCP::Panel::Utils::IntervalTree::Node;
 use strict;
 use warnings;
 
+use POSIX ();
 use List::Util qw(min max);
 
 my $EMPTY_NODE = __PACKAGE__->new(0, 0, undef);
diff --git a/script/ngcp_panel_dump_db_strings.pl b/script/ngcp_panel_dump_db_strings.pl
index 1a3fee270a..7485056b3d 100755
--- a/script/ngcp_panel_dump_db_strings.pl
+++ b/script/ngcp_panel_dump_db_strings.pl
@@ -17,13 +17,14 @@ my $s = NGCP::Schema->connect;
 open(my $fh, ">", $filepath)
     or die "cannot open file $!";
 
-print $fh <<HEADER_END;
+print $fh <<'HEADER_END';
 package NGCP::Panel::Utils::DbStrings;
 
 use warnings;
 use strict;
 
 sub localize {
+    my $c;
 
 HEADER_END
 
@@ -43,7 +44,7 @@ for my $row ($s->resultset('voip_preference_groups')->all) {
         if ($row->name);
 }
 
-print $fh "    return;\n}\n\nsub form_strings {\n\n";
+print $fh "    return;\n}\n\nsub form_strings {\n    my \$c;\n\n";
 
 my $path = 'lib/NGCP/Panel/Form/*.pm lib/NGCP/Panel/Form/*/*.pm';
 my @files = < $path >;