Add solution to 028/1 and blog post link by E. Choroba

2 files changed, 8 insertions, 0 deletions

diff --git a/challenge-028/e-choroba/perl5/blog.txt b/challenge-028/e-choroba/perl5/blog.txt
new file mode 100644
index 0000000000..70ca46db2f
--- /dev/null
+++ b/challenge-028/e-choroba/perl5/blog.txt
@@ -0,0 +1 @@
+http://blogs.perl.org/users/e_choroba/2019/10/perl-weekly-challenge-028-file-content-and-digital-clock.html
diff --git a/challenge-028/e-choroba/perl5/ch-1.pl b/challenge-028/e-choroba/perl5/ch-1.pl
new file mode 100755
index 0000000000..a7b82e99cb
--- /dev/null
+++ b/challenge-028/e-choroba/perl5/ch-1.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use feature qw{ say };
+
+say 'The file content is ', (-T shift) ? 'ascii' : 'binary', '.';
+