box-o-sand/PracticingPerl/cli/stdio.pl

16 lines
160 B
Perl
Raw Normal View History

2011-01-06 02:25:01 +00:00
#!/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__