#!/usr/bin/perl
use Cisco::IPPhone;
$myinput = new Cisco::IPPhone;
$myinputitem = new Cisco::IPPhone;
# Create Menu Object
$myinput->Input( { Title => "Stock Quote - Yahoo! Finance",
Prompt => "Enter Stock Ticker",
URL => "http://$ENV{'SERVER_ADDR'}/cgi-bin/ticker.cgi" });
# Add Input Items to Input Object
$myinput->AddInputItem({ DisplayName => "Enter Ticker",
QueryStringParam => "ticker",
DefaultValue => "",
InputFlags => "A"} );
# Print the Input Object to the Phone
print $myinput->Content;
__END__