#!/bin/perlpackage main;$name = "Tom";my $birthyear = 1942;package nosy;print "$main::name.\n";print "$main::birthyear?\n";