#!/usr/bin/perl
use Cisco::IPPhone;
$mymenu = new Cisco::IPPhone;
# Create Menu Object
$mymenu->Menu( { Title => "My Title", Prompt => "My Prompt", Text => "My Text" });
# Add Menu Item to Menu Object
$mymenu->AddMenuItem({ Name => "Item 1", URL => "http://www.mydomain1.com" });
# Add another menu item to Menu Object
$mymenu->AddMenuItem({ Name => "Item 2", URL => "http://www.mydomain2.com" });
# Add SoftKeyItems to Menu Object
$mymenu->AddSoftKeyItem({ Name => "Select", URL => "SoftKey:Select",
Position => "1" });
$mymenu->AddSoftKeyItem({ Name => "Exit", URL => "SoftKey:Exit",
Position => "2" });
# Print the Menu Object to the Phone
print $mymenu->Content;
__END__