use Fcntl qw/ :seek /;
...
seek $in, 0, SEEK_SET;