diff --git a/patroncards/create-pdf.pl b/patroncards/create-pdf.pl
index 6f22049a74..3bd28ba79f 100755
--- a/patroncards/create-pdf.pl
+++ b/patroncards/create-pdf.pl
@@ -17,9 +17,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
-
+use Modern::Perl;
 use CGI qw ( -utf8 );
 use C4::Auth;
 use Graphics::Magick;
diff --git a/patroncards/edit-batch.pl b/patroncards/edit-batch.pl
index 56410079ae..bd06aabb65 100755
--- a/patroncards/edit-batch.pl
+++ b/patroncards/edit-batch.pl
@@ -18,8 +18,8 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+
+use Modern::Perl;
 use vars qw($debug);
 
 use CGI qw ( -utf8 );
diff --git a/patroncards/edit-layout.pl b/patroncards/edit-layout.pl
index d2446403b9..3c7612992d 100755
--- a/patroncards/edit-layout.pl
+++ b/patroncards/edit-layout.pl
@@ -18,8 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use CGI qw ( -utf8 );
 use Text::CSV_XS;
diff --git a/patroncards/edit-profile.pl b/patroncards/edit-profile.pl
index 4b0769c0e3..d84fb19b13 100755
--- a/patroncards/edit-profile.pl
+++ b/patroncards/edit-profile.pl
@@ -18,8 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use CGI qw ( -utf8 );
 
diff --git a/patroncards/edit-template.pl b/patroncards/edit-template.pl
index f37757c540..3712a6fd82 100755
--- a/patroncards/edit-template.pl
+++ b/patroncards/edit-template.pl
@@ -18,8 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use CGI qw ( -utf8 );
 use autouse 'Data::Dumper' => qw(Dumper);
diff --git a/patroncards/home.pl b/patroncards/home.pl
index b88221f337..cb8e7a5b06 100755
--- a/patroncards/home.pl
+++ b/patroncards/home.pl
@@ -18,8 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use CGI qw ( -utf8 );
 
diff --git a/patroncards/image-manage.pl b/patroncards/image-manage.pl
index 514ea942c1..2c08123427 100755
--- a/patroncards/image-manage.pl
+++ b/patroncards/image-manage.pl
@@ -1,7 +1,6 @@
 #!/usr/bin/perl
 
-use warnings;
-use strict;
+use Modern::Perl;
 
 use CGI qw ( -utf8 );
 use Graphics::Magick;
diff --git a/patroncards/manage.pl b/patroncards/manage.pl
index 837fccdf76..96f8158e0d 100755
--- a/patroncards/manage.pl
+++ b/patroncards/manage.pl
@@ -18,8 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 use vars qw($debug);
 
 use CGI qw ( -utf8 );
diff --git a/patroncards/print.pl b/patroncards/print.pl
index c57be1d25c..8992038fec 100755
--- a/patroncards/print.pl
+++ b/patroncards/print.pl
@@ -17,8 +17,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use CGI qw ( -utf8 );
 use autouse 'Data::Dumper' => qw(Dumper);