Perl chomp interactive user input example

From Colettapedia
Jump to navigation Jump to search
#!/usr/bin/perl
print "How old are you?";
chomp ($age = <>);
print "What is your favorite color?";
chomp ($color = <>);
print "You are $age, and your favorite color is $color.";