$content = `cat somefile.pl`;
eval "package $TEMPPACKAGE;".
    "use Some::Module qw(somefunctions);".
    $content;