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