use strict;
use warnings;

use Tk;

my $mw	= tkinit ();
$mw-> state ('zoomed');   #Dadurch sieht man besser was ich meine

my $antwort;


$mw-> Radiobutton (	-text => "Beispiel Radio", 
			-font => "Arial 20",
			-variable => \$antwort,
			-value => "A",
			-bg => "Cyan",
			-activebackground => "yellow",
		)-> pack (-side => 'left');



MainLoop ();