use Fcntl;
                                                                                
my $where = tell(DATA);
while(<DATA>)
{
   print;
}
                                                                                
seek DATA, $where, SEEK_SET;
                                                                                
while(<DATA>)
{
   print;
}
__DATA__
1
2
3
4
5
6
7