programming-examples/perl/Class/A class is really just a package.pl

#!/bin/perl
package main;

$name = "Tom";
my $birthyear = 1942;

package nosy;
print "$main::name.\n";
print "$main::birthyear?\n";