Select Code to Download

my $thr =  threads->create(\&test,"host","string","2");

sub test{

...
my @a  = $SESSION->get($VLIST); 
print "$a[0]\n";
}