my $sub = \eval 'package '.caller().'; require "'.shift(@_).'"';