Hallo zusammen,

wie kann ich mit perl/tk 2 GIF-Dateien einbinden?
Ich will links oben zwischen dem Button und dem Name "England" die Datei england.gif und vor dem Wort Oesterreich eine Datei austria.gif einbinden .
Danke im voraus.
-------------------------------------------------------------
# !/bin/perl -w

use Tk;

#
# Hauptfenster:
#
my $mw = MainWindow->new();

$mw->title('Ein Test');

my $fo = $mw->Frame()->pack(-side => 'top',
-expand => 1,
-fill => 'both',
);
#
# Checkbuttons:
#
my $f1 = $fo->Frame(-borderwidth => 3,
-relief => 'groove',
)
->pack(-side => 'right',
-expand => 1,
-fill => 'both',
);

#
# Radiobuttons1:
#


my $f2 = $fo->Frame(-label => 'Name auswaelen',
-borderwidth => 3,
-relief => 'groove',
)
->pack(-side => 'right',
-expand => 1,
-fill => 'both',
);

my @Name = ('test1',
'test2',
);
my $Namen = 0;
for my $i (0..$#Name) {
$f2->Radiobutton(-text => $Name[$i],
-variable => \$Namen,
-value => $i,
)
->pack(-anchor => 'w');
}

#
# Radiobuttons2:
#
my $f3 = $fo->Frame(-label => 'MY TEST',
-borderwidth => 3,
-relief => 'groove',
)
->pack(-side => 'right',
-expand => 1,
-fill => 'both',
);

my @Landliste = ('England',
'Oesterreich',
);
my $Land = 0;
for my $i (0..$#Landliste) {
$f3->Radiobutton(-text => $Landliste[$i],
-variable => \$Land,
-value => $i,
)
->pack(-anchor => 'w');
}

#
# OK-Button:
#
$mw->Button(-text => 'OK',
-command => sub { print $mw->destroy();
},
)
->pack(-side => 'bottom',
-expand => 0,
-fill => 'none',
-ipadx => 20,
-pady => 2,
);

MainLoop();
-------------------------------------------------------------

Bitte den schon angefangenden Thread nutzen, danke.