Select Code to Download

    # the traditional way
    if ($zippy) {
...
    # the Perlish post-condition way
    print "Yow!" if $zippy;

my $x = 10;

...
my $x = 5 if (1);

print $x; #prints 5