#!/usr/bin/perl -w

$x = 17;

print "Access using Fully qualified name: ", $main::x, "\n";
print "Access using abbreviated 'main' syntax: ", $::x, "\n";
