Select Code to Download

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

#!/usr/bin/perl

...

my $ref = test();
say $ref;

$ perl 1099646.pl
1,2,3
ARRAY(0x80071c80)
$