#!/usr/local/bin/perl 
# Jaime Prilusky, 2003

use strict;

# variables

  $X::foo = 1;         # ok, fully qualified

  my $foo = 10;        # ok, my() var

  $fox = 9;            # blows up