#!/usr/bin/perl -w
use strict;
package First;
our $scalar = "first";
print $scalar;
package Second;
print $scalar;
our $scalar = "second";
print $scalar;
package Third; {
our $scalar = "inner";
print $scalar;
}
print $scalar;