use Fcntl qw(SEEK_SET);
use IPC::Open2;
...
open2($rdrfh, $wtrfh, 'some cmd and args');
...
seek($rdrfh, 0,0);        #not working
seek($rdrfh, 0,SEEK_SET); #not working