From 7101b8bb253089ac1b8b6e565b5c6cdb54e8bf0f Mon Sep 17 00:00:00 2001
From: Kivanc Yazan <kyzn@cpan.org>
Date: Sun, 14 Apr 2019 16:46:31 -0700
Subject: Week 4 Challenge 1 \o/

---
 challenge-004/kivanc-yazan/perl5/ch-1.pl | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 challenge-004/kivanc-yazan/perl5/ch-1.pl

diff --git a/challenge-004/kivanc-yazan/perl5/ch-1.pl b/challenge-004/kivanc-yazan/perl5/ch-1.pl
new file mode 100644
index 0000000000..c63240226b
--- /dev/null
+++ b/challenge-004/kivanc-yazan/perl5/ch-1.pl
@@ -0,0 +1,9 @@
+use warnings;
+use strict;
+use Math::Prime::Util qw/Pi/;
+
+open(my $fh, "<", $0);
+my $chars;
+$chars += length($_) for <$fh>;
+close $fh;
+print Pi($chars)."\n";
-- 
cgit