use strict;
use warnings;
use Gtk2;
Gtk2->init;
my $window = Gtk2::Window->new ('toplevel');
my $bar1 = Gtk2::RadioButton->new (undef, 'Original Label');
$window->add ($bar1);
$bar1->set_label('Updated Label');
$window->show_all;
Gtk2->main;