#!/usr/bin/perl
use strict;
use warnings;

my $position = tell DATA;

while ( my $line = <DATA> ) {
  print $line;
}

print "\n--8<-- ( seek DATA, 0,0 ) -->8--\n\n";

# mal schauen, was er nun ausgibt:
seek DATA, 0, 0;

while ( my $line = <DATA> ) {
  print $line;
}


print "\n--8<-- ( seek DATA, $position, 0 ) -->8--\n\n";

# mal schauen, was er nun ausgibt:
seek DATA, $position, 0;

while ( my $line = <DATA> ) {
  print $line;
}

__DATA__
Dies ist
mein Datenbereich,
den ich später
auslesen werde.