#!/usr/bin/perl -l

use strict;
use warnings;

package Mi;
our $foo = q{};

package S;
use Symbol::Global::Name;

print Symbol::Global::Name->find(\$foo);