#!/usr/local/bin/perl
use strict;

        foreach my $name ('A', 'B')
        {
        my $res = 'Init' if (0);

                if (defined ($res))
                {
                        print "$name: res = $res\n";
                }
                else
                {
                        print "$name: res is undef\n"
                }

                $res = 'Post';
        }