package Debug;
{use parent "Exporter";
our $var="foo";
our @EXPORT=qw($foo);
}
package main;
{import Debug;

print $var;
}'
Name "main::var" used only once: possible typo at -e line 10.
Use of uninitialized value $var in print at -e line 10.