#!/usr/bin/perl
use Fcntl qw( :seek );

my $top_o_data = tell( DATA );

for( 1 .. 2 ) {
  print "read $_\n---\n";
  seek( DATA, $top_o_data, SEEK_SET );
  print while <DATA>;        
}

__DATA__
Wubba.
Zoikes.
Jinkies.