#!/usr/bin/perl
# $Id: alias.pl,v 1.1.1.1 2008/10/12 04:05:34 alamos Exp $
# Print the names of all symbols in the top-level symbol table

# Make an alias
*dick = *richard;
$dick=7;
print $richard, "\n";

# Alias only a scalar variable
*joe=\$joseph;
$joe=13;
@joe=(1,2,3);
@joseph=(4,5,6);
print $joseph, "\n";
print @joseph, "\n";

# Defining a constant
*PI = \3.14159265358979;
# Trap error
eval { $PI = 17 };
print "Exception: $@" if $@;
print $PI, "\n";
