package Max;
our $tiny_text = 200;
our $long_text = 1000;
package main;
print "From main: $Max::tiny_text\n";
print "From main: $Max::long_text\n";