#!/usr/bin/perl
use strict;
use warnings 'all';
use Tk;

my $splash = tkinit;
$splash->overrideredirect(1);
$splash->geometry("100x100+200+200");

$splash->Label(-image => $splash->Photo(-file => "test.gif"))->pack;

MainLoop;