I think that you can use module File::Data which is an interface to file data.

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);