utf8 without env vars

cli/get_domain.pl

@@ -1,6 +1,8 @@
 #!/usr/bin/perl -w
 use v5.14;
 use autodie;
+use utf8;
+use open qw/:std :utf8/;
 use Modern::Perl;
 
 use Data::Dump qw( dump );
@@ -9,7 +11,6 @@ use lib './lib/';
 use configuration ':all';
 use encryption ':all';
 use app;
-use utf8;
 
 if( @ARGV != 1 ) {
     say "usage : ./$0 domain";

cli/get_domains.pl

@@ -1,6 +1,8 @@
 #!/usr/bin/perl -w
 use v5.14;
 use autodie;
+use utf8;
+use open qw/:std :utf8/;
 use Modern::Perl;
 
 #use DNS::ZoneParse;
@@ -10,7 +12,6 @@ use Data::Dump qw( dump );
 use lib './lib/';
 use configuration ':all';
 use app;
-use utf8;
 
 if( @ARGV != 0 ) {
     say "usage : ./$0";

cli/get_users.pl

@@ -2,6 +2,7 @@
 use v5.14;
 use autodie;
 use utf8;
+use open qw/:std :utf8/;
 use Modern::Perl;
 
 use Data::Dump qw( dump );

cli/toggle_admin.pl

@@ -1,6 +1,8 @@
 #!/usr/bin/perl -w
 use v5.14;
 use autodie;
+use utf8;
+use open qw/:std :utf8/;
 use Modern::Perl;
 
 use Data::Dump qw( dump );
@@ -9,7 +11,6 @@ use lib './lib/';
 use configuration ':all';
 use encryption ':all';
 use app;
-use utf8;
 
 if( @ARGV != 1 ) {
     say "usage : ./$0 login";

cli/user_add.pl

@@ -1,6 +1,8 @@
 #!/usr/bin/perl -w
 use v5.14;
 use autodie;
+use utf8;
+use open qw/:std :utf8/;
 use Modern::Perl;
 
 use Data::Dump qw( dump );
@@ -9,7 +11,6 @@ use lib './lib/';
 use configuration ':all';
 use encryption ':all';
 use app;
-use utf8;
 
 if( @ARGV != 2 ) {
     say "usage : ./$0 login passwd";

cli/user_auth.pl

@@ -1,6 +1,8 @@
 #!/usr/bin/perl -w
 use v5.14;
 use autodie;
+use utf8;
+use open qw/:std :utf8/;
 use Modern::Perl;
 
 use Data::Dump qw( dump );
@@ -9,7 +11,6 @@ use lib './lib/';
 use configuration ':all';
 use encryption ':all';
 use app;
-use utf8;
 
 if( @ARGV != 0 && @ARGV != 2 ) {
     say "usage : ./$0 [ login passwd ]";

cli/user_del.pl

@@ -1,6 +1,8 @@
 #!/usr/bin/perl -w
 use v5.14;
 use autodie;
+use utf8;
+use open qw/:std :utf8/;
 use Modern::Perl;
 
 use Data::Dump qw( dump );
@@ -8,7 +10,6 @@ use Data::Dump qw( dump );
 use lib './lib/';
 use configuration ':all';
 use app;
-use utf8;
 
 if( @ARGV != 1 ) {
     say "usage : ./$0 user";

cli/user_update_passwd.pl

@@ -1,6 +1,8 @@
 #!/usr/bin/perl -w
 use v5.14;
 use autodie;
+use utf8;
+use open qw/:std :utf8/;
 use Modern::Perl;
 
 use Data::Dump qw( dump );

cli/zone_add.pl

@@ -1,13 +1,14 @@
 #!/usr/bin/perl -w
 use v5.14;
 use autodie;
+use utf8;
+use open qw/:std :utf8/;
 use Modern::Perl;
 
 use lib './lib/';
 use configuration ':all';
 use encryption ':all';
 use app;
-use utf8;
 
 if( @ARGV != 2 ) {
     say "usage : ./$0 login ndd ";

cli/zone_del.pl

@@ -1,13 +1,14 @@
 #!/usr/bin/perl -w
 use v5.14;
 use autodie;
+use utf8;
+use open qw/:std :utf8/;
 use Modern::Perl;
 
 use lib './lib/';
 use configuration ':all';
 use encryption ':all';
 use app;
-use utf8;
 
 if( @ARGV != 1 ) {
     say "usage : ./$0 ndd ";

lib/MyWeb/App.pm

@@ -3,6 +3,8 @@ package MyWeb::App;
 use v5.14;
 use strict;
 use warnings;
+use utf8;
+use open qw/:std :utf8/;
 
 use Dancer2;
 use Dancer2::Plugin::Deferred;
@@ -10,7 +12,6 @@ use File::Basename;
 #use Storable qw( freeze thaw );
 #$Storable::Deparse = true;
 #$Storable::Eval=true;
-use utf8;
 
 use YAML::XS;
 use configuration ':all';

lib/rt/admin.pm

@@ -3,6 +3,7 @@ package rt::admin;
 use configuration ':all';
 use app;
 use utf8;
+use open qw/:std :utf8/
 
 use Data::Dump qw( dump );
 

lib/rt/adminfake.pm

@@ -3,6 +3,7 @@ package rt::adminfake;
 use configuration ':all';
 use app;
 use utf8;
+use open qw/:std :utf8/
 
 use Data::Dump qw( dump );
 

lib/rt/domain.pm

@@ -6,6 +6,7 @@ use encryption ':all';
 use util ':all';
 use app;
 use utf8;
+use open qw/:std :utf8/
 use Dancer ':syntax';
 use Data::Dump qw( dump );
 use Data::Validate::IP qw(is_ipv4 is_ipv6);

lib/rt/domainfake.pm

@@ -6,6 +6,7 @@ use encryption ':all';
 use util ':all';
 use app;
 use utf8;
+use open qw/:std :utf8/
 use Dancer ':syntax';
 use Data::Dump qw( dump );
 use Data::Validate::IP qw(is_ipv4 is_ipv6);

lib/rt/root.pm

@@ -3,6 +3,7 @@ package rt::root;
 use configuration ':all';
 use app;
 use utf8;
+use open qw/:std :utf8/
 
 use Exporter 'import';
 # what we want to export eventually

lib/rt/rootfake.pm

@@ -3,6 +3,7 @@ package rt::rootfake;
 use configuration ':all';
 use app;
 use utf8;
+use open qw/:std :utf8/
 
 use Exporter 'import';
 # what we want to export eventually

lib/rt/user.pm

@@ -5,6 +5,7 @@ use configuration ':all';
 use encryption ':all';
 use app;
 use utf8;
+use open qw/:std :utf8/
 
 use YAML::XS;
 

lib/rt/userfake.pm

@@ -5,6 +5,7 @@ use configuration ':all';
 use encryption ':all';
 use app;
 use utf8;
+use open qw/:std :utf8/
 
 use YAML::XS;
 

lib/testapp.pl

@@ -2,9 +2,10 @@
 use v5.14;
 use strict;
 use warnings;
+use utf8;
+use open qw/:std :utf8/;
 
 use File::Basename;
-use utf8;
 use YAML::XS;
 use configuration ':all';
 use util ':all';