adding file seek perl toy code