diff --git a/cli/exercise_02/input.pl b/cli/exercise_02/input.pl
new file mode 100644
index 0000000..defa1da
--- /dev/null
+++ b/cli/exercise_02/input.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+
+print "How about a line of input?: ";
+my $inline = <STDIN>;
+
+print "You said:\n";
+print $inline;
+
+
+1;
+__END__