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

my $mw = tkinit();

my $radio = $mw->Radiobutton(-text => "Radiobutton");
$mw->Button(-text => "Radiobutton einblenden",
             -command => sub { $radio->pack })->pack;
$mw->Button(-text => "Radiobutton ausblenden",
             -command => sub { $radio->packForget })->pack;

MainLoop;