#! /usr/local/bin/perl -Tw

$x = 1;

my $x = 2;

print "local value: $::x, my value: $x\n";