#!/usr/local/bin/perl
#############################################################################
# orderBook: Take book order thru an ARGV
#############################################################################
$book = $ARGV[0]; # get the book requested
print "Content-type: text/html \n";
print "\n";
print "";
print "
Order Ice Cream
