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

$::var = 0;
print "Variable is [$::var]\n";
changeVar();
print "Variable is now [$::var]\n";

sub changeVar {
	$::var = 2;
}