use Fcntl ':seek';
... 
# your code here