Select Code to Download

print "Hello, world!\n";

$success = print "Hello, world!\n";

use strict; use warnings;
my $x;
...
$x in second BEGIN block: 'foo'
runtime: $x = 'bar'
done.