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