use Fcntl qw(:seek)# load symbolic constants

seek FILEHANDLE, 0, SEEK_SET; # start of file
seek FILEHANDLE, 0, SEEK_END; # end of file