Hallo zusammen,

wie kann ich mit perl/tk eine Datei .gif einbinden?
Ich will links oben zwischen dem Button und der Name "England" eine Datei .gif einbinden (das gilt auch für der zweite Button, also vor dem Wort Oesterreich).
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();
-------------------------------------------------------------