fun with user input

cat-town
Dan Buch 14 years ago
parent 93cfa65b3e
commit f39fc4dc24

@ -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__
Loading…
Cancel
Save