BEGIN {
   $X="sargsSunOS_58";
}

use vars qw(@a);
use lib "/here/etc/packages";
use  $X;
@a=$X->new;

print @a;

##</code><code>##

use $var