#! /usr/bin/perl;

 unshift @INC, "/path/to/package";

 print "Introplate variables from which package?";

 $package=<STDIN>;

 use $package; 

 print << EOF;

 This variable:

 #heres the intropolation I want to effect:

 $package::variable

 originates in package $package.

 EOF