#!/usr/bin/perl
require 5.003;
# Example: giving input to a perl script by asking for input from keyboard

print "\n What is your first name?  ";
$Name = <STDIN>;      # STDIN = "Standard Input", your keyboard in this case.
chomp($Name);         # chop the new line character from the end of $Name
print "\t$Name   That's a nice name.\n\n";
 
print "What is your favorite city?  ";
$City = <STDIN>;
chomp($City);
print "\tI've never been there.  Hmm.... \n\n";
 
sleep 3;       # pause for 3 seconds
 
print "Bye Bye. Nice speaking with you.\nI've got to go back to work now.\n\n";