working on exercise 2

This commit is contained in:
Dan Buch 2011-01-06 21:28:28 -05:00
parent c695765b4e
commit 20c678ecc8

14
cli/exercise_02/input.pl Normal file
View File

@ -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__