>>374
sub fileeval {
my ($file, $a, $b, $c) = @_;
open(FILE, $file);
my $data = <FILE>;
eval($data);
print "error : $@" if($@);
}

sub hoge {
my $a;
.... #コード
fileeval('hogehoge.pl', $a, $b, $c);
.... #コード
}
じゃだめなん？