9 lines
139 B
Perl
9 lines
139 B
Perl
|
#!/bin/perl
|
||
|
|
package main;
|
||
|
|
|
||
|
|
$name = "Tom";
|
||
|
|
my $birthyear = 1942;
|
||
|
|
|
||
|
|
package nosy;
|
||
|
|
print "$main::name.\n";
|
||
|
|
print "$main::birthyear?\n";
|