Oops.

package foo;
my $x = 3;
package bar;
print $x;
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.