package test;
$x = "Hi";        # Or $::x = "Hi";

package main;
print $test::x;