fun with user input

This commit is contained in:
Dan Buch 2011-01-05 21:25:01 -05:00
parent 93cfa65b3e
commit f39fc4dc24

15
cli/stdio.pl Normal file
View File

@ -0,0 +1,15 @@
#!/usr/bin/env perl
use strict;
use warnings;
print "What is your name?: ";
my $name = <STDIN>;
$name =~ s/\n//;
print "Your name is $name\n";
1;
__END__