working on exercise 2

2011-01-06 21:28:28 -05:00
parent c695765b4e
commit 20c678ecc8
1 changed files with 14 additions and 0 deletions
--- a/cli/exercise_02/input.pl
+++ 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__