my $temp_mod_name = 'tempmod.pm';
open TEMP, '>', $temp_mod_name or die "$temp_mod_name: $!\n";
print TEMP @mod;
close TEMP;
if (eval "require $temp_mod_name") {
....