find(strcmp(strsplit(path,":"),'.'))
addpath(pwd)
find(strcmp(strsplit(path,":"),'.'))

mkdir tmp;
cd tmp;
fname = 'file_to_run';
fid = fopen([fname '.m'],'w');
fprintf(fid, 'a=1');
fclose(fid);

pwd
ls([fname '.m'])
evalin('base', fname)
