Argument "SEEK_SET" isn't numeric in seek at ./test.pl line 13, <DATA> line 7.