$file = '/some/file/path';
open (CODE, $file) or die qq(can't read "$file": $!);

$tmp = $/ ; undef $/;
$code = <CODE>;
$/ = $tmp;

close CODE;

eval $code;

##  and then run some function defined in that code.