#!/usr/bin/perl -w
######################################################################
# photo.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use Tk;

$top = MainWindow->new();

                            # create photo object and
                            # initialize with GIF image
$photo = $top->Photo();
$photo->configure("-file" => "earthris.gif");

                            # include photo in label
                            # and display
$label = $top->Label(-image => $photo, -text => "hallo");
$label->pack();
                            # create second label with
                            # "Width x Height" text
$top->Label(-text => $photo->width . "x" . $photo->height)->pack();

MainLoop;