sub readfile { local $/="" unless wantarray; return open(FS, shift) ? : undef; }