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

our $c = 2;
print "Before: c=$c\n";
unless($c){my $c = 1}
print "After:  c=$c\n";