Select Code to Download

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

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

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

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