#!c:/perl/bin/perl -w
$|++;

use strict;

# incorrect - maybe not what you expect
print scalar <DATA>;
seek DATA, 0, 0;     # seeks to first line of file!
print scalar <DATA>;

__DATA__
foo
bar


##</code><code>##

#!c:/perl/bin/perl -w
$|++;

use strict;

# correct
my $start = tell DATA; # tells us where __DATA__ begins

print scalar <DATA>;
seek DATA, $start, 0;  # seek to the saved point
print scalar <DATA>;

__DATA__
foo
bar