use Modern::Perl

3 files changed, 3 insertions, 9 deletions

diff --git a/challenge-019/paulo-custodio/perl/ch-1.pl b/challenge-019/paulo-custodio/perl/ch-1.pl
index c1efb08557..ef4be52b5b 100644
--- a/challenge-019/paulo-custodio/perl/ch-1.pl
+++ b/challenge-019/paulo-custodio/perl/ch-1.pl
@@ -9,9 +9,7 @@
 # Solution: 4 weeks are 28 days, to have 5 week-ends we need additional 3 days (29,30,31),
 # therefore 31st must be a Sunday
 
-use strict;
-use warnings;
-use 5.030;
+use Modern::Perl;
 use constant Sunday => 7;
 
 sub is_leap {
diff --git a/challenge-019/paulo-custodio/perl/ch-2.pl b/challenge-019/paulo-custodio/perl/ch-2.pl
index 0c9cc1ecc3..dfe7ddaf5f 100644
--- a/challenge-019/paulo-custodio/perl/ch-2.pl
+++ b/challenge-019/paulo-custodio/perl/ch-2.pl
@@ -5,9 +5,7 @@
 # Task #2
 # Write a script that can wrap the given paragraph at a specified column using the greedy algorithm.
 
-use strict;
-use warnings;
-use 5.030;
+use Modern::Perl;
 
 my $text = "";
 while (<>) {
diff --git a/challenge-019/paulo-custodio/test.pl b/challenge-019/paulo-custodio/test.pl
index 16841dbd77..1ead292820 100644
--- a/challenge-019/paulo-custodio/test.pl
+++ b/challenge-019/paulo-custodio/test.pl
@@ -1,9 +1,7 @@
 #!/usr/bin/perl
 
-use strict;
-use warnings;
+use Modern::Perl;
 use Test::More;
-use 5.030;
 use Path::Tiny;
 
 is capture("perl perl/ch-1.pl"), <<END;