#!/usr/bin/perl -w
use strict;

our $c = 2;
print "Before: c=$c\n";
my $d = 1 unless $c;
print "After:  d=$d\n";