Select Code to Download

hisham@bioslayer:~$ perl -
my $subref = sub{print 'a',"\n";};
...
(my $test)?print 'c' : &{$subref}; #dereference with &{}
__END__
a