$file =~ s#^(\s)#./$1#;
open(FOO, "< $file\0");