-command => [\&Account_Setup, $acct]

##</code><code>##

$f->Radiobutton(-text => "Investment",
	-value => "investment",
	-variable => \$acct)->pack(-side => 'top',
                                   -anchor => 'w');

##</code><code>##

sub Account_Setup{
	my ($acct_type) = shift;
	print "Account Type: $acct_type\n";
}

##</code><code>##

-command => sub{ print "Account: $acct\n"; }