package Testing;

$in_package = 'In package';

package main;
use Data::Dumper;

$package = 'Testing';

print Dumper(${$package . '::in_package'});