- Added solution by Robert DiCicco.

1 files changed, 25 insertions, 0 deletions

diff --git a/challenge-146/robert-dicicco/perl/ch-1.pl b/challenge-146/robert-dicicco/perl/ch-1.pl
new file mode 100644
index 0000000000..5f1dbc87e4
--- /dev/null
+++ b/challenge-146/robert-dicicco/perl/ch-1.pl
@@ -0,0 +1,25 @@
+#!perl.exe
+
+use strict;
+use warnings;
+use ntheory qw/ next_prime /;
+
+### AUTHOR: Robert DiCicco
+### DATE:   04-JAN-2022
+### Challenge #145 10001st Prime
+
+my $cnt = 0;
+my $i = 1;
+
+my $TARGET = 10001;
+
+while($cnt <= $TARGET){
+    if($cnt == $TARGET ){
+        last;
+     }
+
+     $cnt++;
+     $i = next_prime($i);
+}
+
+print("Count = $cnt : prime = $i\n");