$,='|'; 
print w->curselection;