view release on metacpan or  search on metacpan

examples/image_ibm.cgi  view on Meta::CPAN

#!/usr/bin/perl

use Cisco::IPPhone;

$myimage = new Cisco::IPPhone;

$data = 'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F001000001F00FF0F40FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF010001000001401F00F4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF01FF011FF001F401F4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1FF01F00401F000F40FFFFFFFFF...

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

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

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

__END__
~;