use vars qw($exitval);
END {$? = $exitval}

use LotsOStuff;
use MoreStuff;
use TheOtherGuy'sStuff;
use StuffYouProbablyDontNeed;

# your code here

END {$exitval = $?}