#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::Photo;

my $mw = tkinit;

my @Landliste = (
    ['England', 'shop_cart.gif'],
    ['Oesterreich', 'shop_cart.gif'],
);
my $Land = 0;

for my $i (0..$#Landliste) {
    my $photo = $mw->Photo( -file => $Landliste[$i]->[1] );
    $mw->Radiobutton(-text => $Landliste[$i]->[0],
        -variable => \$Land,
        -value    => $i,
        -image    => $photo,
        -compound => 'left',
    )->pack(-anchor => 'w');
}

MainLoop;