#!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