Select Code to Download

use strict;
use warnings;
...

my $x = foo();
print "$x\n";

Using Pure Perl Implementation
42

Using Inline
42