Select Code to Download

open OUT ">$output_file" or die $!;

print OUT, "foo bar baz\n";

open my $out, '>', $output_file or die $!;

push @foo = 'bar';  # aaaaargh!!!

my $foo = $bar or $baz;
print "You have $foo foo" . $foo==1?'':'s' . ":\n";
my @frobozz = map foo($_) or bar($_), @baz;

eval {
  what() if $i == do { this() };
...
  return "don't worry $name, be happy\n";
}
print $coderef->('Pustular');

eval { "require $foo; 1" } or die "Where's $foo?\n";
print $foo->happiness();