#!usr/local/bin/perl -w

# variable types: name=Name of user, live=City where user lives, age=The users age

# Program starts

print ("Vad heter du?\n");                                # Asking for the users name.
$name = <STDIN>;                                          # Awaits answer from user.
chomp ($name);                                            # Chops off the Enter-strike.

print ("Var bor du?\n");                                  # Asking the user where he/she lives.
$live = <STDIN>;                                          # Awaits answer from user.
chomp ($live);                                            # Chops off the Enter-strike. 

print ("Hur gammal är du?\n");                            # Asking the user to type in his/her age.
$age = <STDIN>;                                           # Awaits answer from user.
chomp ($age);                                             # Chops off the Enter-strike.


print ("\n\n");                                           # My solution for creating space between the lines.

print ("Hej $name. Är det trevligt att bo i $live?\n");   # Prints the variables together with my own text.
print ("Hur känns det att vara $age gammal?\n\n");

print ("Nu är programmet slut.\n\n");                     # Prints the text, the program ends now.

exit;                                                     # Ends the program.