12345
sub RefreshBuddyList { my $user; my $nickname; for(@_) { my $m = $config{MainWindow}->Menu(-tearoff => 0);