Select Code to Download

#!/usr/bin/perl 
use warnings;
...
$y = 42;
print "$y\n";
__END__

my $x = compute_some_value();