Select Code to Download

#!/usr/bin/perl

...
my $new = join "" => @a;

print $new, "\n";

#!/usr/bin/perl

...
define x (a) {
    return (a * 2 + 1)
}