#!/usr/bin/perl -w

use Food;
use strict;
my $meal = new Food;

$meal->setMeal( "iced tea", "salad", "cheesecake" );
print "I would like ";
$meal->display();
print " please.";
print( "\n" );