my ($var1,$var2) = ('',''); # scope vars to work with strict
open(FILE,"$filename") or die "$!";
read FILE, $code, -s $filename;
close(FILE);
eval($code);