use strict;
use warnings;

my $x='Exports';
eval "use $x";

asub();
#fails if I uncomment the next line - Global symbol "$ascalar" requires explicit package name
#print $ascalar, "\n";