Select Code to Download

print "if: pre\n";
if (f()) {
...
    my $ifobj = bless ["if"];
}
print "if: post\n";

print "while: pre\n";
while (f()) {
...
    last;
}
print "while: post\n";