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

##</code><code>##

print "while: pre\n";
while (f()) {
    print "while: inside\n";
    my $wobj = bless ["while"];
    last;
}
print "while: post\n";