Select Code to Download

my $var1 : shared('a') = 3;
my $var2 : shared('a');
my $var3 : shared('b') = 10;

my $done : shared = 0;
my $results : shared;
...
if( $done ) {
    ## use $results;
}

my $start = time();
my $content : shared;
...
    ## shutdown the socket
}
## use the $content.