use v5.14;
use warnings;
use autodie;

$a = "main";
print "$a\n";

package Cat;
$a = "a cat";

package Dog;
$a = "a dog";
print "$a\n";

package Cat;
print "$a\n";
print "$::a\n";

package main;
$b = 17;
print "$b\n";