use Fcntl qw/:seek/;

seek FH, 0, SEEK_SET or die "Cannot seek on $filename: $!";