#!/usr/bin/perl

# Mad Libs
#


# These are the words to get replaced.
print "\nGive me a noun: ";
$noun1 = <>; 
chomp $noun1;

print "\nGive me a verb: ";
$verb1 = <>;
chomp $verb1;

print "\nGive me another verb: ";
$verb2 = <>;
chomp $verb2;

print "\nAnd, one more noun: ";
$noun2 = <>;
chomp $noun2;

print "\nNow, give me someone's name: ";
$name = <>;
chomp $name;


print "\n\nOkay, once upon a time there was a giant named $name. This giant had an 
unfortunate $noun1 growing out of it's knee. It hurt every time $name tried to $verb1. 
One day it got so bad that $name took a $noun2 and used it to $verb2 the $noun1 
until it was smashed. Then $name felt better. The end.\n\n";

syntax highlighted by Code2HTML, v. 0.9.1