Class Perl

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