view release on metacpan or  search on metacpan

examples/image.cgi  view on Meta::CPAN

#!/usr/bin/perl

use Cisco::IPPhone;

$myimage = new Cisco::IPPhone;
$mysoftkeyitem = new Cisco::IPPhone;

$data = "AAAAAAAAAA0AA8AAAAAAAAAAAA2A0000A0AAAAAAAA00000000A0AAAAAAAAAAAAAAAAAA0AA8AAAAAAAAAAAA820200A0AAAAAAAA0000000088AAAAAAAAAAAAAAAAAA0AA8AAAAAAAAAAAAAA0A00A0AAAAAAAA02000000A8AAAAAAAA0000000000000000000000000000000000000000000000000000000000000...

# Create Menu Object
$myimage->Image( { Title => "IBM Image", Prompt => "View the image",
                 LocationX => "-1", LocationY => "-1", Width => "120",
                 Height => "44", Depth => "2", Data => "$data" });

# Add SoftKeyItems to Menu Object
$mysoftkeyitem->SoftKeyItem( { Name => "Select", URL => "SoftKey:Select", 
                               Position => "1" } );
$myimage->AddSoftKeyItemObject( { SoftKeyItem => $mysoftkeyitem });
$myimage->AddSoftKeyItem({ Name => "Exit", URL => "SoftKey:Exit", 
                          Position => "2" });

# Print the Menu Object to the Phone
print $myimage->Content;

__END__
~;