use Tk;
use Tk::Photo;

my $fenster = MainWindow -> new();
my $photo = $fenster -> Photo (-data => "/home/xxx/logo.gif");

$fenster -> Label(-image => $photo) -> pack();

MainLoop();