do($filename) 
   or die "$filename: " . ($! ? $! : $@);