#!/usr/bin/perl -w $main::name = "A"; $Tom::name = "B"; $Jack::name = "C"; print "\$name in package main is $name\n"; package Tom; print "\$name in package Tom is $name\n"; package Jack; print "\$name in package Jack is $name\n"; package main;