sub RefreshBuddyList {
    my $image="logo.gif";
    my $nickname;
    my $singleLine = 30;
    #$nickname = $config{MainWindow}->Frame(-relief => 'sunken', -borderwidth => 5);
    my $label1 = $config{MainWindow}->Label(-text=>'3 neue Flirtmails', -font => $config{Boldfont}, -background => 'white');
    
    foreach(@_) {
        my $m = $config{MainWindow}->Menu(-tearoff => 0);
        my $user = (split(/\:/, $_))[0];
        $m->add(
            'command',
            -label => "Privat-Chat starten",
            -background=> 'white',
            -command => sub { StartChat($user) }
        );
        $m->add(
            'command',
            -label => "Profil anzeigen",
            -background=> 'white',
            -command => sub { GotoUrl("http://.../cgi-bin/goto.pl?username=$user") }
        );
        $m->add('separator');
        $m->add(
            'command',
            -label => "Benutzer blockieren",
            -background=> 'white',
            -command => sub { IgnoreUser($user) }
        );
        $m->add(
            'command',
            -label => "Kontakt löschen",
            -background=> 'white',
            -command => sub { RemoveUser($user) }
        );
        my $photo = $config{MainWindow}->Photo();
        $photo->configure("-file" => $image);
        my $label = $config{MainWindow}->Label(-image => $photo, -background => 'white');

        $nickname = $config{MainWindow}->Label(
            -text => $user." (Online)",
            -background => 'white',
            -font => $config{Font}
        );
        $nickname->bind('<Button-3>' => sub { $m->Popup(-popover => 'cursor') });
        $nickname->bind('<Double-1>' => sub { StartChat($user) });
        $label->place(-x=>2, -y => $singleLine-2);
        $label1->place(-x=>5, -y => 4);
        $nickname -> place(-x=>23, -y => $singleLine);
        $singleLine = $singleLine + 18;
    
    }
}