use Modern::Perl

3 files changed, 3 insertions, 9 deletions

diff --git a/challenge-076/paulo-custodio/perl/ch-1.pl b/challenge-076/paulo-custodio/perl/ch-1.pl
index 3e8a365725..ad023788c6 100644
--- a/challenge-076/paulo-custodio/perl/ch-1.pl
+++ b/challenge-076/paulo-custodio/perl/ch-1.pl
@@ -17,9 +17,7 @@
 #     2 as sum of 2 prime numbers i.e. 2 and 7 is same as the input number.
 #     2 + 7 = 9.
 
-use strict;
-use warnings;
-use 5.030;
+use Modern::Perl;
 use Math::Combinatorics;
 
 my($N) = shift;
diff --git a/challenge-076/paulo-custodio/perl/ch-2.pl b/challenge-076/paulo-custodio/perl/ch-2.pl
index f401b68f31..ca138ae18e 100644
--- a/challenge-076/paulo-custodio/perl/ch-2.pl
+++ b/challenge-076/paulo-custodio/perl/ch-2.pl
@@ -34,9 +34,7 @@
 #
 # aimed, align, antes, argos, arose, ashed, blunt, blunts, broad, buries, clove, cloven, constitution, constitutions, croon, depart, departed, enter, filch, garlic, goats, grieve, grieves, hazard, liens, malign, malignant, malls, margo, midst, ought, ovary, parted, patna, pudgiest, quash, quashed, raped, ruses, shrine, shrines, social, socializing, spasm, spasmodic, succor, succors, theorem, theorems, traci, tracie, virus, viruses, wigged
 
-use strict;
-use warnings;
-use 5.030;
+use Modern::Perl;
 use Path::Tiny;
 
 @ARGV==2 or die "Usage: ch-2.pl grid words\n";
diff --git a/challenge-076/paulo-custodio/test.pl b/challenge-076/paulo-custodio/test.pl
index 7c5ac18132..755968df91 100644
--- a/challenge-076/paulo-custodio/test.pl
+++ b/challenge-076/paulo-custodio/test.pl
@@ -1,9 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
-use warnings;
-use Test::More;
-use 5.030;
+use Modern::Perl;
 
 is capture("perl perl/ch-1.pl  2"), "2 = 2\n";
 is capture("perl perl/ch-1.pl  3"), "3 = 3\n";