Select Code to Download

#!/usr/bin/perl -w
use strict ; use warnings ;
...

my $b = ${foo('SCALAR ${foo()}')} ;
my @b = (${foo('LIST   ${foo()}')}) ;