$x = "joe";
package $x;
#do lots of stuff in joe::
package main;
# stuff in main::